Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (22 sloc) 453 Bytes
#!/usr/bin/perl -w
use strict;
use warnings;
use Config;
use File::Copy;
my $old = '';
my $new = 'Makefile';
open OLD, "<", $old or die "Unable to open $old: $!\n";
open NEW, ">", $new or die "Unable to open $new: $!\n";
my $flag;
while (<OLD>) {
if ($flag) {
print NEW;
} elsif (/^PERL\s*=\s*/) {
print NEW "PERL = $Config{perlpath}\n";
} else {
print NEW;
close OLD;
close NEW;
Jump to Line
Something went wrong with that request. Please try again.