$line = <A2L>;
chomp $function;
chomp $line;
- print "$function ($line)\n";
+ print shift (@ARGV), ": $function ($line)\n";
}
sub search_path {
my ($target) = @_;
for $dir (split (':', $ENV{PATH})) {
- my ($file = "$dir/$target";
+ my ($file) = "$dir/$target";
return $file if -e $file;
}
return 0;