Need to know the number of tests.

p4raw-id: //depot/perl@11533

diff --git a/t/run/exit.t b/t/run/exit.t
index 7b91cf3..d9fe8b4 100644 (file)
--- a/t/run/exit.t
+++ b/t/run/exit.t
@@ -18,10 +18,11 @@ sub run {
     return system($cmd.$quote.$code.$quote);
 }
 
-## can't use this in 'use Test::More' yet
-##my $numtests = ($^O eq 'VMS') ? 7 : 3; 
+BEGIN {
+    $numtests = ($^O eq 'VMS') ? 7 : 3; 
+}
 
-use Test::More tests => 'no_plan';
+use Test::More tests => $numtests;
 
 my $exit, $exit_arg;