7 or die "Cannot open $filename: $!\n" ;
16 my($filename, @strings) = @_ ;
17 open (F, ">$filename")
18 or die "Cannot open $filename: $!\n" ;
19 binmode(F) if $filename =~ /bin$/i;
27 my($number, $result, $note) = @_ ;
29 $note = "" if ! defined $note ;
31 $note = "# $note" if $note !~ /^\s*#/ ;
35 print "not " if !$result ;
36 print "ok ${number}${note}\n";
44 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;