This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
1bc3bfbd930bf87502b116ae5c7503446d43aa2f
[perl5.git] / cpan / Filter-Util-Call / filter-util.pl
1
2 use strict ;
3 use warnings;
4
5 use vars qw( $Perl $Inc);
6
7 sub readFile
8 {
9     my ($filename) = @_ ;
10     my ($string) = '' ;
11
12     open (F, "<$filename") 
13         or die "Cannot open $filename: $!\n" ;
14     while (<F>)
15       { $string .= $_ }
16     close F ;
17     $string ;
18 }
19
20 sub writeFile
21 {
22     my($filename, @strings) = @_ ;
23     open (F, ">$filename") 
24         or die "Cannot open $filename: $!\n" ;
25     binmode(F) if $filename =~ /bin$/i;
26     foreach (@strings)
27       { print F }
28     close F or die "Could not close: $!" ;
29 }
30
31 sub ok
32 {
33     my($number, $result, $note) = @_ ;
34  
35     $note = "" if ! defined $note ;
36     if ($note) {
37         $note = "# $note" if $note !~ /^\s*#/ ;
38         $note =~ s/^\s*/ / ;
39     }
40
41     print "not " if !$result ;
42     print "ok ${number}${note}\n";
43 }
44
45 $Inc = '' ;
46 foreach (@INC)
47  { $Inc .= "\"-I$_\" " }
48 $Inc = "-I::lib" if $^O eq 'MacOS';
49
50 $Perl = '' ;
51 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
52
53 $Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS';
54 $Perl = "$Perl -w" ;
55
56 1;