This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust VMS test count
[perl5.git] / 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";