From ccf9d404cfe99346af2f08dbbda44a3a53912b90 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Thu, 9 May 2002 06:49:31 +0000
Subject: Fix for bug 143124, Fix warning messages about *::TESTOUT and clean
 up test code. Patch makes the tests much better now.

r=zach x2
---
 t/002goodperl.t | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 't/002goodperl.t')

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 09a5f0324..d3beec5ef 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -38,13 +38,14 @@
 #Bugzilla Test 2#
 ####GoodPerl#####
 
-BEGIN { use lib 't/'; }
-BEGIN { use Support::Files; }
-BEGIN { $tests = @Support::Files::testitems * 2; }
-BEGIN { use Test::More tests => $tests; }
-
 use strict;
 
+use lib 't';
+
+use Support::Files;
+
+use Test::More tests => (scalar(@Support::Files::testitems) * 2);
+
 my @testitems = @Support::Files::testitems; # get the files to test.
 
 foreach my $file (@testitems) {
-- 
cgit v1.2.3-24-g4f1b