Re: regression test filesystem assumptions

[John E. Malmberg]

On 8/7/2013 12:23 PM, Nicholas Clark wrote:
I have this commit pushed to a smoke-me branch. It doesn't cause any test
failures on the HP VMS testdrive system. Am I making bad assumptions?
Specifically, is it filesystem dependant whether this code as-is will pass?

     open(H,'run/fresh_perl.t'); # must be in the 't' directory
     stat(H);
     print "ok\n" if (-e _ and -f _ and -r _);

I infer that it must have failed 12 years ago, because the last line was
"corrected" to

     print "ok\n" if (-e _ and -f _);

But what changed to cause it to work now?

Don't know why it ever failed on VMS unless there was a bug in the 
stat() routine for the version of VMS that the change was made on.

Regards,
-John