Use $Program to report filename

briandfoy · Jul 7, 2023 · fb9b121 · fb9b121
1 parent 504caa9
commit fb9b121
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/cmp b/bin/cmp
@@ -46,7 +46,7 @@ use File::Basename;
 my $Program = basename($0);
 
 END {
-    close STDOUT || die "$0: can't close stdout: $!\n";
+    close STDOUT || die "$Program: can't close stdout: $!\n";
     $? = 1 if $? == 255;  # from die
 }