|
@@ -432,7 +432,7 @@ foreach my $file (@ARGV) {
|
|
|
die "$P: file '${file}' not found\n";
|
|
die "$P: file '${file}' not found\n";
|
|
|
}
|
|
}
|
|
|
}
|
|
}
|
|
|
- if ($from_filename || vcs_file_exists($file)) {
|
|
|
|
|
|
|
+ if ($from_filename || ($file ne "&STDIN" && vcs_file_exists($file))) {
|
|
|
$file =~ s/^\Q${cur_path}\E//; #strip any absolute path
|
|
$file =~ s/^\Q${cur_path}\E//; #strip any absolute path
|
|
|
$file =~ s/^\Q${lk_path}\E//; #or the path to the lk tree
|
|
$file =~ s/^\Q${lk_path}\E//; #or the path to the lk tree
|
|
|
push(@files, $file);
|
|
push(@files, $file);
|