diff options
-rw-r--r-- | lib/sbin/interface_parser.pl | 5 | ||||
-rw-r--r-- | lib/sbin/parameter_parser.pl | 3 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index 6fc6317f..c02be57c 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -702,7 +702,7 @@ sub parse_interface_ccl for($line_number = 0; $line_number < @data; $line_number++) { $line = $data[$line_number]; - + # Parse the line if($line =~ m/^\s*(PUBLIC|PROTECTED|PRIVATE)\s*$/i) { @@ -1103,7 +1103,8 @@ sub parse_interface_ccl } else { - $message = "Unknown line in thorn $arrangement/$thorn\n$line"; + $line =~ /^(.*)\n+$/; + $message = "Unknown line in interface.ccl for thorn $arrangement/$thorn\n\"$line\""; &CST_error(0,$message,"",__LINE__,__FILE__); } } diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index 2e3d698b..746f5ea0 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -459,7 +459,8 @@ sub parse_param_ccl } else { - $message = "Unknown line \"$line\" in $thorn/param.ccl"; + $line =~ /^(.*)\n+$/; + $message = "Unknown line in param.ccl for thorn $arrangement/$thorn\n\"$1\""; &CST_error(0,$message,"",__LINE__,__FILE__); } } |