Mailing List Archive

commit fbb4368c53909c488f1c1729e50bda575f6b3ff3
Author: David Christensen <david@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.

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs