diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-07 14:10:03 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-07 14:10:03 +0000 |
commit | 3350a4bb420c035a9f1658206efa03b1ee85cbdf (patch) | |
tree | 7b616532cc1fa55c20e230d5e7419732dc2d0857 /lib/sbin | |
parent | 7301d576c116f467e2f7d00df879f4eb2ac879c1 (diff) |
Small change which I think makes it work with perl 4.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1009 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/interface_parser.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index bccbceb6..22e6a24f 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -571,13 +571,13 @@ sub parse_interface_ccl { $block = "\U$1\E"; } - elsif ($line =~ m/^\s*(?:CCTK_)?(INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|CHAR|COMPLEX)\s*([a-zA-Z]+[a-zA-Z_0-9]*)\s*(.*)\s*$/i) + elsif ($line =~ m/^\s*(CCTK_)?(INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|CHAR|COMPLEX)\s*([a-zA-Z]+[a-zA-Z_0-9]*)\s*(.*)\s*$/i) { - $current_group = "$2"; + $current_group = "$3"; if($known_groups{"\U$current_group\E"}) { - $message = "Duplicate group $2 in thorn $thorn"; + $message = "Duplicate group $3 in thorn $thorn"; &CST_error(0,$message,__LINE__,__FILE__); if($data[line_number+1] =~ m:\{:) { @@ -595,9 +595,9 @@ sub parse_interface_ccl $interface_db{"\U$thorn GROUP $current_group\E"} = ""; } - $interface_db{"\U$thorn $block GROUPS\E"} .= " $2"; - $interface_db{"\U$thorn GROUP $current_group\E VTYPE"} = "\U$1\E"; - %options = split(/\s*=\s*|\s+/, $3); + $interface_db{"\U$thorn $block GROUPS\E"} .= " $3"; + $interface_db{"\U$thorn GROUP $current_group\E VTYPE"} = "\U$2\E"; + %options = split(/\s*=\s*|\s+/, $4); # Parse the options foreach $option (keys %options) |