|
Lines 58-67
sub catch_missing_op {
Link Here
|
| 58 |
$in_form = 1; |
58 |
$in_form = 1; |
| 59 |
$line_open_form = $line_number; |
59 |
$line_open_form = $line_number; |
| 60 |
} |
60 |
} |
| 61 |
if ( $in_form && $line =~ m{name="op"} ) { |
61 |
if ( $in_form && $line =~ m{name=('|")op('|")} ) { |
| 62 |
$has_op = 1; |
62 |
$has_op = 1; |
| 63 |
if ( $line =~ m{value="(.*)"} ) { |
63 |
if ( $line =~ m{value=('|")([^'"]*)('|")} ) { |
| 64 |
$op_value = $1; |
64 |
$op_value = $2; |
| 65 |
} |
65 |
} |
| 66 |
} |
66 |
} |
| 67 |
if ( $in_form && $line =~ m{</form} ) { |
67 |
if ( $in_form && $line =~ m{</form} ) { |
| 68 |
- |
|
|