5 use vars qw( $Perl $Inc);
12 open (F, "<$filename")
13 or die "Cannot open $filename: $!\n" ;
22 my($filename, @strings) = @_ ;
23 open (F, ">$filename")
24 or die "Cannot open $filename: $!\n" ;
25 binmode(F) if $filename =~ /bin$/i;
28 close F or die "Could not close: $!" ;
33 my($number, $result, $note) = @_ ;
35 $note = "" if ! defined $note ;
37 $note = "# $note" if $note !~ /^\s*#/ ;
41 print "not " if !$result ;
42 print "ok ${number}${note}\n";
47 { $Inc .= "\"-I$_\" " }
48 $Inc = "-I::lib" if $^O eq 'MacOS';
51 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
53 $Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS';