sub contents ($)
{
my ($file) = @_;
- local $/; # Turn on slurp-mode.
+ local $/; # Turn on slurp-mode.
my $f = new IO::File "< $file" or die "$file";
my $contents = $f->getline or die "$file";
$f->close;
{
local ($_) = @_;
$_ = $prefix . $_
- unless m{^\$\(\w+\)} || $_ eq "Makefile";
+ unless /^-/ || m{^\$\(\w+\)} || $_ eq "Makefile" || $_ eq '\\';
return $_;
}