Only include $! in error messages for failed syscalls.

This commit is contained in:
Adam Spiers 2012-07-09 01:06:13 +01:00
parent 67936bd7de
commit 8ccef07601
2 changed files with 14 additions and 14 deletions

View file

@ -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)