diff options
Diffstat (limited to 'bin/bdf2fbcon')
| -rwxr-xr-x | bin/bdf2fbcon | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/bin/bdf2fbcon b/bin/bdf2fbcon index 8f822d6..f602aba 100755 --- a/bin/bdf2fbcon +++ b/bin/bdf2fbcon @@ -9,6 +9,7 @@ bdf2fbcon - Convert Glyph Bitmap Distribution Format fonts to Linux fbcon fonts use strict; use warnings; no indirect; +use English qw(-no_match_vars); use Getopt::Long; @@ -197,7 +198,7 @@ sub write_fbcon $output_fh = *STDOUT; } else { if (not open($output_fh, '>', $output . '~')) { - error('%s: %s', $output . '~', $!); + error('%s: %s', $output . '~', $ERRNO); return; } } @@ -246,7 +247,7 @@ sub write_fbcon if ($output ne '-') { close($output_fh); if (not rename($output . '~', $output)) { - error('%s: %s', $output, $!); + error('%s: %s', $output, $ERRNO); return; } } @@ -269,7 +270,7 @@ sub convert $input_fh = *STDIN; } else { if (not open($input_fh, '<', $input)) { - error('%s: %s', $input, $!); + error('%s: %s', $input, $ERRNO); return; } } @@ -298,7 +299,7 @@ sub usage { my ($fh) = @_; - $fh->printf("Usage: %s [-o <output>] <input> ...\n", $0); + $fh->printf("Usage: %s [-o <output>] <input> ...\n", $PROGRAM_NAME); return; } |