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 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;
}