1 use ExtUtils::MakeMaker;
5 die "Filters needs Perl version 5.004 or better, you have $]\n"
8 warn "Perl 5.6.0 or better is strongly recommended for Win32\n"
9 if $^O eq 'MSWin32' && $] < 5.006 ;
14 my @files = qw( filter-util.pl
17 decrypt/decrypt.pm decrypt/decr decrypt/encrypt
19 lib/Filter/cpp.pm lib/Filter/exec.pm lib/Filter/sh.pm
21 examples/method/Count.pm
22 examples/method/NewSubst.pm
23 examples/method/UUdecode.pm
24 examples/method/Decompress.pm
25 examples/method/Joe2Jim.pm
26 examples/method/Subst.pm
27 examples/closure/Count.pm
28 examples/closure/NewSubst.pm
29 examples/closure/UUdecode.pm
30 examples/closure/Decompress.pm
31 examples/closure/Include.pm
32 examples/closure/Joe2Jim.pm
33 examples/closure/Subst.pm
46 { oldWarnings(@files) }
48 { newWarnings(@files) }
54 # Fun hack by cjwatson to get perlfilter.pod manified in section 1 with
55 # all the other perl*.pod pages.
58 $self->{MAN1PODS}->{'perlfilter.pod'} =
59 $self->catfile("\$(INST_MAN1DIR)", "perlfilter.\$(MAN1EXT)");
60 delete $self->{MAN3PODS}->{'perlfilter.pod'};
61 $self->SUPER::constants();
69 'linkext' => {LINKTYPE => ''},
70 'dist' => {COMPRESS=>'gzip', SUFFIX=>'gz',
71 DIST_DEFAULT => 'MyDoubleCheck tardist'},
73 ? (ABSTRACT => 'Source Filters',
74 AUTHOR => 'Paul Marquess <pmqs@cpan.org>')
77 ((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
78 ('LICENSE' => 'perl') : ()),
87 if $path =~ /(~|\.bak)$/ ||
88 $path =~ /^\..*\.swp$/ ;
98 @echo Checking for $$^W in files
100 exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/; \
101 \' ' . " @files || " . ' \
102 (echo found unexpected $$^W ; exit 1)
121 last if $ARGV ne $this ;
126 s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
127 s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
145 last if $ARGV ne $this ;
150 s/^(\s*)local\s*\(\$\^W\)\s*=\s*\d+\s*;\s*#\s*((no|use)\s+warnings.*)/$1$2/ ;