Fix "uninitialised" warning

davorg · book · commit e8bcf0ac47b0 · 2025-02-06T17:38:27.000+01:00
diff --git a/lib/PPC.pm b/lib/PPC.pm
@@ -75,7 +75,10 @@ sub new_from_file($class, $ppc_file) {
     $ppc{author} = delete $ppc{authors}
   }
 
-  $ppc{$_} =~ s|\@.+?>|\@XXXX>|g for (qw[author sponsor]);
+  for (qw[author sponsor]) {
+    $ppc{$_} //= '';
+    $ppc{$_} =~ s|\@.+?>|\@XXXX>|g;
+  }
 
   return $class->new(%ppc);
 }

Original file line number	Diff line number	Diff line change
`@@ -75,7 +75,10 @@ sub new_from_file($class, $ppc_file) {`
`75`	`75`	`$ppc{author} = delete $ppc{authors}`
`76`	`76`	`}`
`77`	`77`
`78`		`- $ppc{$_} =~ s\|\@.+?>\|\@XXXX>\|g for (qw[author sponsor]);`
	`78`	`+ for (qw[author sponsor]) {`
	`79`	`+ $ppc{$_} //= '';`
	`80`	`+ $ppc{$_} =~ s\|\@.+?>\|\@XXXX>\|g;`
	`81`	`+ }`
`79`	`82`
`80`	`83`	`return $class->new(%ppc);`
`81`	`84`	`}`