From de2a3a6b490da721a44e11c0ca4e91286988e794 Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Sat, 5 Jan 2002 00:04:09 +0000
Subject: Bug 112914 - This test was relying on the existance of the unix "cat"
 command instead of using perl's standard open() function.  This caused a test
 failed when running the tinderbox script on win32.

---
 t/002goodperl.t | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 't')

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 9047e09ff..e9ade3900 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -18,6 +18,7 @@
 # Rights Reserved.
 # 
 # Contributor(s): Zach Lipton <zach@zachlipton.com>
+#                 Jacob Steenhagen <jake@acutex.net>
 # 
 # Alternatively, the contents of this file may be used under the
 # terms of the GNU General Public License Version 2 or later (the
@@ -48,16 +49,18 @@ my @testitems = @Support::Files::testitems; # get the files to test.
 foreach my $file (@testitems) {
         $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
         next if (!$file); # skip null entries
-        my $filecontent = `cat $file`;
-        if ($filecontent !~ /\/usr\/bonsaitools\/bin\/perl/) {
+        open (FILE, $file);
+        my @file = <FILE>;
+        close (FILE);
+        if ($file[0] !~ /\/usr\/bonsaitools\/bin\/perl/) {
                 ok(1,"$file does not have a shebang");	
                 next;
         } else {
-                if ($filecontent =~ m#/usr/bonsaitools/bin/perl -w#) {
+                if ($file[0] =~ m#/usr/bonsaitools/bin/perl -w#) {
                         ok(1,"$file uses -w");
                         next;
                 } else {
-                        ok(0,"$file is MISSING -w");
+                        ok(0,"$file is MISSING -w --WARNING");
                         next;
                 }
         }
@@ -65,11 +68,13 @@ foreach my $file (@testitems) {
 foreach my $file (@testitems) {
         $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
         next if (!$file); # skip null entries
-        my $filecontent = `cat $file`;
-        if ($filecontent !~ /use strict/) {
-                ok(0,"$file DOES NOT use strict");
-        } else {
+        open (FILE, $file);
+        my @file = <FILE>;
+        close (FILE);
+        if (grep /^\s*use strict/, @file) {
                 ok(1,"$file uses strict");
+        } else {
+                ok(0,"$file DOES NOT use strict --WARNING");
         }
 }
 
-- 
cgit v1.2.3-24-g4f1b