[interchange] Fix ancient line numbering bug

David Christensen interchange-cvs at icdevgroup.org
Thu Jun 22 20:05:18 UTC 2017


commit fbb4368c53909c488f1c1729e50bda575f6b3ff3
Author: David Christensen <david at endpoint.com>
Date:   Thu Jun 22 14:12:39 2017 -0500

    Fix ancient line numbering bug

 scripts/interchange.PL |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/scripts/interchange.PL b/scripts/interchange.PL
index 8075037..21b0376 100644
--- 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.



More information about the interchange-cvs mailing list