aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rwxr-xr-xperl/contrib/formfind8
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 {