gbranden pushed a commit to branch master
in repository groff.
commit 1b4f95dab08f77cd0e73e593581c2608a14ad26b
Author: G. Branden Robinson <[email protected]>
AuthorDate: Fri Mar 21 19:15:35 2025 -0500
[afmtodit]: Initialize scalars properly.
* src/utils/afmtodit/afmtodit.pl (croak, whine): Fix my misunderstanding
of uninitialized Perl scalars. Initialize scalars used as strings to
explicit empty strings.
Continues commit 658f7afb8e, 2 January.
---
ChangeLog | 8 ++++++++
src/utils/afmtodit/afmtodit.pl | 4 ++--
2 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5e52e81cd..c53af8b07 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2025-03-21 G. Branden Robinson <[email protected]>
+
+ * src/utils/afmtodit/afmtodit.pl (croak, whine): Fix my
+ misunderstanding of uninitialized Perl scalars. Initialize
+ scalars used as strings to explicit empty strings.
+
+ Continues commit 658f7afb8e, 2 January.
+
2025-03-13 Dave Kemper <[email protected]>
* tmac/fallbacks.tmac: Allow recognition of more Unicode
diff --git a/src/utils/afmtodit/afmtodit.pl b/src/utils/afmtodit/afmtodit.pl
index 1cdaa40c6..3cb9d3b21 100644
--- a/src/utils/afmtodit/afmtodit.pl
+++ b/src/utils/afmtodit/afmtodit.pl
@@ -62,7 +62,7 @@ if ($opt_v) {
sub croak {
my $msg = shift;
- my $pos;
+ my $pos = "";
$pos .= "$filename:" if $filename;
$pos .= "$lineno:" if $lineno;
print STDERR "$prog:$pos error: $msg\n";
@@ -71,7 +71,7 @@ sub croak {
sub whine {
my $msg = shift;
- my $pos;
+ my $pos = "";
$pos .= "$filename:" if $filename;
$pos .= "$lineno:" if $lineno;
print STDERR "$prog:$pos warning: $msg\n";
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
