This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the two "VMS adjustments" from test.pl's _fresh_perl
authorNicholas Clark <nick@ccl4.org>
Wed, 7 Aug 2013 09:57:09 +0000 (11:57 +0200)
committerNicholas Clark <nick@ccl4.org>
Sun, 11 Aug 2013 14:01:22 +0000 (16:01 +0200)
commit7682ed921500841e8c45793174078f853106a4c4
treeddd28f09836795e458112a5c43c7f708fbf756bb
parent3f88addd70270af60480d0d67c44b56c46f4392d
Remove the two "VMS adjustments" from test.pl's _fresh_perl

These were added by commit ed6b3797850720f7 ("make t/op/misc.t work on VMS")
in Jan 2001 back when the relevant code was in t/op/misc.t

The two adjustments each only applied to one test in t/run/fresh_perl.t

Was:    system './perl -ne "print if eof" /dev/null'
Became: system './perl -ne "print if eof" NL:'

Was:    print "ok\n" if (-e _ and -f _ and -r _);
Became: print "ok\n" if (-e _ and -f _);

The latter had the comment "VMS file locking".

It seems that neither is needed now. Perl will recognise "/dev/null" as
the null device, and -r returns true on a file opened for reading.

The "adjustments", particularly the second, should have been done all along
in the code for the test itself, not by complicating the test runner.
t/test.pl