diff options
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -112,7 +112,7 @@ sub CheckFormField (\%$;\@) { $field = $fieldname; } - ThrowCodeError("illegal_field", { field => $field }, "abort"); + ThrowCodeError("illegal_field", { field => $field }); } } @@ -213,7 +213,7 @@ sub CheckEmailSyntax { my ($addr) = (@_); my $match = Param('emailregexp'); if ($addr !~ /$match/ || $addr =~ /[\\\(\)<>&,;:"\[\] \t\r\n]/) { - ThrowUserError("illegal_email_address", { addr => $addr }, 'abort'); + ThrowUserError("illegal_email_address", { addr => $addr }); } } |