numeric.c:S_mulexp10 -- quit when you can

[perl5.git] / t / lib / filter-util.pl

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 9b29c5e..1bc3bfb 100644 (file)
--- a/t/lib/filter-util.pl
+++ b/t/lib/filter-util.pl
@@ -1,3 +1,9 @@
+
+use strict ;
+use warnings;
+
+use vars qw( $Perl $Inc);
+
 sub readFile
 {
     my ($filename) = @_ ;
@@ -19,7 +25,7 @@ sub writeFile
     binmode(F) if $filename =~ /bin$/i;
     foreach (@strings)
       { print F }
-    close F ;
+    close F or die "Could not close: $!" ;
 }
 
 sub ok
@@ -39,10 +45,12 @@ sub ok
 $Inc = '' ;
 foreach (@INC)
  { $Inc .= "\"-I$_\" " }
+$Inc = "-I::lib" if $^O eq 'MacOS';
 
 $Perl = '' ;
 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
 
+$Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS';
 $Perl = "$Perl -w" ;
 
 1;