diff options
author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-16 14:46:44 +0000 |
---|---|---|
committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-12-16 14:46:44 +0000 |
commit | 48c93717c0d3621913eb275dbf03416db7a6b579 (patch) | |
tree | 19325d0043d9c082566268c7d8992a8f545db817 /lib | |
parent | b8817bcb3ccd20f6c3cecff1dca3adbc663e1a55 (diff) |
inherits and friend can now be separated by , and whitespaces
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1202 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/interface_parser.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index bd6a6858..67596896 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -612,11 +612,11 @@ sub parse_interface_ccl &CST_error(0,$message,__LINE__,__FILE__); } } - # implementation names can be sepeated by ,;:\s, where ,;: are stripped out below - elsif ($line =~ m/^\s*(INHERITS|FRIEND)\s*:(([,;:\s]*[a-zA-Z]+[a-zA-Z_0-9]*)*[,;:\s]*)$/i) + # implementation names can be sepeated by ,\s, where , are stripped out below + elsif ($line =~ m/^\s*(INHERITS|FRIEND)\s*:(([,\s]*[a-zA-Z]+[a-zA-Z_0-9]*)*[,\s]*)$/i) { $interface_db{"\U$thorn $1\E"} .= $2; - $interface_db{"\U$thorn $1\E"}=~s/[,;:]/ /g; + $interface_db{"\U$thorn $1\E"}=~s/,/ /g; } elsif ($line =~ m/^\s*(PUBLIC|PROTECTED|PRIVATE)\s*:\s*$/i) { |