Only include $! in error messages for failed syscalls.
This commit is contained in:
parent
67936bd7de
commit
8ccef07601
2 changed files with 14 additions and 14 deletions
|
|
@ -43,7 +43,7 @@ Outputs an error message in a consistent form and then dies.
|
|||
|
||||
sub error {
|
||||
my ($format, @args) = @_;
|
||||
die "$ProgramName: ERROR: " . sprintf($format, @args) . " ($!)\n";
|
||||
die "$ProgramName: ERROR: " . sprintf($format, @args) . "\n";
|
||||
}
|
||||
|
||||
=head2 set_debug_level($level)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue