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:
parent
0a570ca831
commit
7f04d6a5de
1 changed files with 2 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue