From b48428541a2e33a226f489e07908891a9fa8ec21 Mon Sep 17 00:00:00 2001 From: goodale Date: Thu, 3 May 2001 14:15:27 +0000 Subject: 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 --- lib/sbin/interface_parser.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lib') 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"; } } -- cgit v1.2.3