diff options
Diffstat (limited to 'perl')
| -rwxr-xr-x | perl/contrib/formfind | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/contrib/formfind b/perl/contrib/formfind index f9e869531..976e3ee54 100755 --- a/perl/contrib/formfind +++ b/perl/contrib/formfind @@ -26,10 +26,10 @@ sub namevalue { my ($tag)=@_; my $name=$tag; if($name =~ /name *=/i) { - if($name =~ /name *= *([^\"\']([^ \">]*))/) { + if($name =~ /name *= *([^\"\']([^ \">]*))/i) { $name = $1; } - elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/) { + elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/i) { $name=$2; } else { @@ -45,10 +45,10 @@ sub namevalue { # get value tag my $value= $tag; if($value =~ /[^\.a-zA-Z0-9]value *=/i) { - if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/) { + if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/i) { $value = $1; } - elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/) { + elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/i) { $value=$2; } else { |