Change error messages

They now follow the gnu coding standards on Formatting Error Messages,
found here: https://www.gnu.org/prep/standards/html_node/Errors.html
This commit is contained in:
Tom Willemse 2014-04-12 15:11:24 +02:00
parent 0a570ca831
commit 7f04d6a5de

View file

@ -88,6 +88,7 @@ encountered also prints a message to the standard error stream.
use strict; use strict;
use warnings; use warnings;
use File::Basename;
use Getopt::Std; use Getopt::Std;
my $lineno = 0; my $lineno = 0;
@ -97,7 +98,7 @@ my %arguments = ();
sub err { sub err {
my ($msg) = @_; my ($msg) = @_;
print STDERR "Error on line $lineno (actual line $.): ". $msg ."\n"; print STDERR basename($0) .":". $ARGV[0] .":$.: ". $msg ."\n";
$status = 1; $status = 1;
} }