diff options
-rw-r--r-- | lib/sbin/CSTUtils.pl | 4 | ||||
-rw-r--r-- | lib/sbin/interface_parser.pl | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl index 9759af73..d34b9b95 100644 --- a/lib/sbin/CSTUtils.pl +++ b/lib/sbin/CSTUtils.pl @@ -262,7 +262,7 @@ sub TestName #@@*/ sub SplitWithStrings { - my ($expression) = @_; + my ($expression, $thorn) = @_; my $insstring = 0; my $indstring = 0; @@ -338,7 +338,7 @@ sub SplitWithStrings if($insstring || $indstring) { - print "Error: Unterminated string\n" + print "Error: Unterminated string while parsing interface for thorn : $thorn\n" } if($escaping) diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index b372925c..abdeba61 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -844,7 +844,7 @@ sub parse_interface_ccl } # split(/\s*=\s*|\s+/, $options_list); - %options = SplitWithStrings($options_list); + %options = SplitWithStrings($options_list,$thorn); # Parse the options foreach $option (sort keys %options) |