stat.t cleanup, first pass

Message-ID: <20011204210918.D13279@blackrider>

t/test.

p4raw-id: //depot/perl@13468

diff --git a/t/test.pl b/t/test.pl
index e4411af..e54d53e 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -252,4 +252,11 @@ sub runperl {
     return $result;
 }
 
+
+sub BAILOUT {
+    print "Bail out! @_\n";
+    exit;
+}
+
+
 1;