From 0ab780528073f06895a2098a912e0618adb3b12e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Aug 2001 13:38:29 +0000
Subject: [PATCH] Need to know the number of tests.

p4raw-id: //depot/perl@11533
---
 t/run/exit.t | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/t/run/exit.t b/t/run/exit.t
index 7b91cf3..d9fe8b4 100644
--- 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;
 
-- 
2.7.4