view release on metacpan or  search on metacpan

set_pureperl.PL  view on Meta::CPAN

my $pureperl=shift(@ARGV);

my $dispatch=catfile(qw(lib Apache Dispatch.pm));

my $fh;
open ($fh,$dispatch) || die "cannot read Dispatch.pm: $!";
my $code=join('',<$fh>);
close $fh;

chmod(0755,$dispatch);

$code =~ s{(\$Apache::Dispatch::PUREPERL\=)\d}{$1$pureperl};

open ($fh,">", $dispatch) || die "cannot write to Dispatch.pm: $!";
print $fh $code;
close $fh;