Re: regression test filesystem assumptions

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