diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-05-03 14:15:27 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-05-03 14:15:27 +0000 |
| commit | b48428541a2e33a226f489e07908891a9fa8ec21 (patch) | |
| tree | 4f10111a4e2bf9d3d415a4fa7cec7d4f7953748d /lib | |
| parent | 3aec6e520a6a52b84b4fbda17629266f584a2904 (diff) | |
Fixing some matches which weren't case independent - PR 653.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2139 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/sbin/interface_parser.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index 3dc2d8c5..aeb84761 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -887,15 +887,15 @@ sub parse_interface_ccl } } - elsif ($line =~ m/^\s*(USES\s*INCLUDE)S?\s*(SOURCE)S?\s*:\s*(.*)\s*$/) + elsif ($line =~ m/^\s*(USES\s*INCLUDE)S?\s*(SOURCE)S?\s*:\s*(.*)\s*$/i) { $interface_db{"\U$thorn USES SOURCE\E"} .= " $3"; } - elsif ($line =~ m/^\s*(USES\s*INCLUDE)S?\s*(HEADER)?S?\s*:\s*(.*)\s*$/) + elsif ($line =~ m/^\s*(USES\s*INCLUDE)S?\s*(HEADER)?S?\s*:\s*(.*)\s*$/i) { $interface_db{"\U$thorn USES HEADER\E"} .= " $3"; } - elsif ($line =~ m/^\s*(INCLUDE)S?\s*(SOURCE)S?\s*:\s*(.*)\s+in\s+(.*)\s*$/) + elsif ($line =~ m/^\s*(INCLUDE)S?\s*(SOURCE)S?\s*:\s*(.*)\s+IN\s+(.*)\s*$/i) { $header = $3; $header =~ s/ //g; @@ -903,7 +903,7 @@ sub parse_interface_ccl # print "Adding $header to $4\n"; $interface_db{"\U$thorn ADD SOURCE $header TO\E"} = $4; } - elsif ($line =~ m/^\s*(INCLUDE)S?\s*(HEADER)?S?\s*:\s*(.*)\s+in\s+(.*)\s*$/) + elsif ($line =~ m/^\s*(INCLUDE)S?\s*(HEADER)?S?\s*:\s*(.*)\s+IN\s+(.*)\s*$/i) { $header = $3; $header =~ s/ //g; @@ -937,7 +937,8 @@ sub print_interface_database my(%database) = @_; my($field); - foreach $field ( sort keys %database ){ + foreach $field ( sort keys %database ) + { print "$field has value $database{$field}\n"; } } |