Fix ancient line numbering bug

interchange · Jun 22, 2017 · fbb4368 · fbb4368
1 parent a2c2e85
commit fbb4368
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/interchange.PL b/scripts/interchange.PL
@@ -584,7 +584,7 @@ sub catch_warnings {
 		return @_ unless $_[0] =~ /^Use of uninitialized /;
 		my $warn = $_[0];
 		my $configline;
-		if($warn =~ /CONFIG>\s+chunk\s+(\d+)/) {
+		if(($configline) = ($warn =~ /CONFIG>\s+chunk\s+(\d+)/)) {
 			return <<EOF;
 There is a possible problem in this catalog at line $configline
 of the catalog.cfg file. Please check it out.