This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust VMS test count
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 May 2005 06:25:22 +0000 (06:25 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 May 2005 06:25:22 +0000 (06:25 +0000)
p4raw-id: //depot/perl@24503

t/run/exit.t

index a639a11..9cc16ad 100644 (file)
@@ -20,7 +20,7 @@ sub run {
 
 BEGIN {
     # MacOS system() doesn't have good return value
 
 BEGIN {
     # MacOS system() doesn't have good return value
-    $numtests = ($^O eq 'VMS') ? 10 : ($^O eq 'MacOS') ? 0 : 17;
+    $numtests = ($^O eq 'VMS') ? 9 : ($^O eq 'MacOS') ? 0 : 17;
 }
 
 require "test.pl";
 }
 
 require "test.pl";