Use English rather than punctuation variable names

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;
 }