X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Ffilter-util.pl;h=1bc3bfbd930bf87502b116ae5c7503446d43aa2f;hb=09576c7db8c59458f52d7746e7f4062d64ff34e7;hp=9b29c5ef52cdf931885affe5391d8c5989b8de1b;hpb=0e06870bf080a38cda51c06c6612359afc2334e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 9b29c5e..1bc3bfb 100644
--- 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;