From e1e1395da4f2778fb41991115be1dae16dc74cae Mon Sep 17 00:00:00 2001
From: Patrick McDermott <patrick.mcdermott@libiquity.com>
Date: Sat, 29 Jun 2019 20:06:22 -0400
Subject: Use English rather than punctuation variable names

---
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;
 }
--
cgit v0.9.1