From 48c93717c0d3621913eb275dbf03416db7a6b579 Mon Sep 17 00:00:00 2001 From: lanfer Date: Thu, 16 Dec 1999 14:46:44 +0000 Subject: 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 --- lib/sbin/interface_parser.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') 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) { -- cgit v1.2.3