diff options
author | Steve McIntyre <steve@einval.com> | 2018-06-06 15:32:47 +0100 |
---|---|---|
committer | Steve McIntyre <steve@einval.com> | 2018-06-06 15:32:47 +0100 |
commit | dc8e650802e2c48020d717e1ee48596fd5442fbb (patch) | |
tree | 52d255952624a54568a3031c389611b7e22bc33c /Perl | |
parent | 4539542ef2af227357f3d9183d80de6c9a5092fd (diff) |
Print errors to STDERR
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Local/VCS_git.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Perl/Local/VCS_git.pm b/Perl/Local/VCS_git.pm index 1a954bd08d0..74484374ba8 100644 --- a/Perl/Local/VCS_git.pm +++ b/Perl/Local/VCS_git.pm @@ -372,7 +372,7 @@ sub _grab_commits ); push (@commits, \%entry); } else { - print "ERROR: Can't parse $line in $cache_db/$tablename\n"; + print STDERR "ERROR: Can't parse $line in $cache_db/$tablename for file $file\n"; } } close IN; @@ -455,11 +455,11 @@ sub cmp_rev } if ($pos1 == -1) { # Not found - print "ERROR: commit $rev1 not found in revisions of $file\n"; + print STDERR "ERROR: commit $rev1 not found in revisions of $file\n"; $ret = undef; } elsif ($pos2 == -1) { # Not found - print "ERROR: commit $rev2 not found in revisions of $file\n"; + print STDERR "ERROR: commit $rev2 not found in revisions of $file\n"; $ret = undef; } elsif ($pos1 == $pos2) { $ret = 0; @@ -550,11 +550,11 @@ sub count_changes } if ($pos1 == -1) { # Not found - print "ERROR: commit $rev1 not found in revisions of $file\n"; + print STDERR "count_changes() ERROR: commit rev1 $rev1 not found in revisions of $file\n"; $ret = undef; } elsif ($pos2 == -1) { # Not found - print "ERROR: commit $rev2 not found in revisions of $file\n"; + print STDERR "count_changes() ERROR: commit rev2 $rev2 not found in revisions of $file\n"; $ret = undef; } $ret = $pos1 - $pos2; |