This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Filter::Util::Call to CPAN version 1.58
[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 read $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 write $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     return $result;
44 }
45
46 sub diag {
47     print STDERR 
48       (map { /^#/ ? "$_\n" : "# $_\n" }
49        map { split /\n/ } @_);
50 }
51
52 $Inc = '' ;
53 foreach (@INC) { $Inc .= "\"-I$_\" " }
54 $Inc = "-I::lib" if $^O eq 'MacOS';
55
56 $Perl = '' ;
57 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
58
59 $Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS';
60 $Perl = "$Perl -w" ;
61
62 1;