summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPatrick McDermott <patrick.mcdermott@libiquity.com>2019-06-29 20:06:22 (EDT)
committer Patrick McDermott <patrick.mcdermott@libiquity.com>2019-06-29 20:06:22 (EDT)
commite1e1395da4f2778fb41991115be1dae16dc74cae (patch)
treeb607de1e738d3a7083cb8dc6c232df2760bd7e0d
parent9893d18d444f8471bc8009d2e959b5d08bc17542 (diff)
Use English rather than punctuation variable names
-rwxr-xr-xbin/bdf2fbcon9
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;
}