$opt{$1}=$2;
shift(@ARGV);
}
+
+$opt{CONFIG_H} ||= 'config.h';
+
my $patchlevel = $opt{INST_VER};
$patchlevel =~ s|^[\\/]||;
$patchlevel =~ s|~VERSION~|$Config{version}|g;
}
($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
+$file =~ s/^\$(\w+)$/$opt{$1}/g;
+
my $str = "sub munge\n{\n";
while ($pat =~ s/-e\s+'([^']*)'\s*//)