diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-30 17:43:45 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-30 17:43:45 +0000 |
| commit | 1e7cc07cbe0d7a1d9d97fe50cc1e53807491a2c8 (patch) | |
| tree | 66afa557a8eab868358558dfe801948925ac01cf /lib/sbin/interface_parser.pl | |
| parent | be882a25b7c6d9bca20380340acb7b9904e65bbd (diff) | |
Improve error messages for unknown lines
Fixes Cactus/1352
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3056 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/interface_parser.pl')
| -rw-r--r-- | lib/sbin/interface_parser.pl | 5 |
1 files changed, 3 insertions, 2 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__); } } |