while (<FIND>) {
chomp;
my $input = $_;
- s/^$PATH\///g;
- s/sysdeps\/linux\///g;
- my $output = $_;
+ my $output = $input;
+ my $replace = quotemeta($PATH);
+ $output =~ s/^$replace\///g;
+ $output =~ s/sysdeps\/linux\///g;
print STDERR "$input => $output\n";
$output =~ /^(.+)\/[^\/]+$/ and system("mkdir -p $1");
undef $cur;
undef $default_set;
}
- $line =~ s/^(\s*source\s+)/$1package\/utils\/busybox\/config\//;
+ $line =~ s/^(\s*source\s+)([^\/]+\/)*([^\/]+\/[^\/]+)$/$1$3/;
if ($line =~ /^(\s*range\s*)(\w+)(\s+)(\w+)\s*$/) {
my $prefix = $1;
my $r1 = $2;