diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-07 00:04:04 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-07 00:04:04 +0000 |
commit | f3b6b8d155f79a46086eb12a7594d8fdc430f9cf (patch) | |
tree | 3faff28f792e9f4e1326503e43725d795a5c2c97 /lib/sbin/interface_parser.pl | |
parent | 44542bcb599b43243a72e3bbda0a226ec479d709 (diff) |
Adding to CST_errors
git-svn-id: http://svn.cactuscode.org/flesh/trunk@446 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/interface_parser.pl')
-rw-r--r-- | lib/sbin/interface_parser.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index fc1136e4..4758f98d 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -61,7 +61,9 @@ sub cross_index_interface_data $implementation = $interface_data{"\U$thorn\E IMPLEMENTS"}; if($implementation =~ m:^\s*$:) { - die "Thorn $thorn doesn't specify an implementation.\n"; + print "Thorn $thorn doesn't specify an implementation.\n"; + $CST_errors++; + next; } # Put if statement around this to prevent perl -w from complaining. |