From dc8e650802e2c48020d717e1ee48596fd5442fbb Mon Sep 17 00:00:00 2001 From: Steve McIntyre Date: Wed, 6 Jun 2018 15:32:47 +0100 Subject: Print errors to STDERR --- Perl/Local/VCS_git.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Perl') 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; -- cgit v1.2.3