This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Be sure to find the vmsish pragma for one-liners in exit.t.
authorCraig A. Berry <craigberry@mac.com>
Sun, 19 Jul 2009 20:46:31 +0000 (15:46 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sun, 19 Jul 2009 20:55:01 +0000 (15:55 -0500)
Already in upstream at:

http://github.com/schwern/test-more/commit/c842e916e4aa2e34c36afb3a930979d363121236

lib/Test/Simple/t/exit.t

index 96f3a7e..95661ee 100644 (file)
@@ -28,6 +28,7 @@ if( $^O eq 'VMS' ) {
     $Perl = "MCR $^X" if $] < 5.007003;
 
     # Quiet noisy 'SYS$ABORT'
     $Perl = "MCR $^X" if $] < 5.007003;
 
     # Quiet noisy 'SYS$ABORT'
+    $Perl .= q{ -"I../lib"} if $ENV{PERL_CORE};
     $Perl .= q{ -"Mvmsish=hushed"};
 }
 
     $Perl .= q{ -"Mvmsish=hushed"};
 }