diff options
author | Tom Willemse | 2014-04-12 15:11:24 +0200 |
---|---|---|
committer | Tom Willemse | 2014-04-12 15:15:51 +0200 |
commit | 7f04d6a5de5018dedc94379af1b7112b54b0561c (patch) | |
tree | 61b10b998c50d4acfaeaf97934bcaefa2ba7f19e | |
parent | 0a570ca8318750f02039cfefb2d3a16d96457522 (diff) | |
download | commit-check-7f04d6a5de5018dedc94379af1b7112b54b0561c.tar.gz commit-check-7f04d6a5de5018dedc94379af1b7112b54b0561c.zip |
They now follow the gnu coding standards on Formatting Error Messages,
found here: https://www.gnu.org/prep/standards/html_node/Errors.html
-rwxr-xr-x | commit-check | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/commit-check b/commit-check index cc3a9b8..cfdc0bf 100755 --- a/commit-check +++ b/commit-check @@ -88,6 +88,7 @@ encountered also prints a message to the standard error stream. use strict; use warnings; +use File::Basename; use Getopt::Std; my $lineno = 0; @@ -97,7 +98,7 @@ my %arguments = (); sub err { my ($msg) = @_; - print STDERR "Error on line $lineno (actual line $.): ". $msg ."\n"; + print STDERR basename($0) .":". $ARGV[0] .":$.: ". $msg ."\n"; $status = 1; } |