diff options
| -rw-r--r-- | t/012throwables.t | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/t/012throwables.t b/t/012throwables.t index 2c7a5998b..8bc749686 100644 --- a/t/012throwables.t +++ b/t/012throwables.t @@ -113,9 +113,18 @@ foreach my $file (keys %test_modules) { last if $line =~ /^__END__/; # skip the POD (at least in # Bugzilla/Error.pm) $lineno++; - if ($line =~ /^[^#]*Throw(Code|User)Error\s*\(\s*["'](.*?)['"]/) { - my $errtype = lc($1); - my $errtag = $2; + if ($line =~ +/^[^#]*(Throw(Code|User)Error|error\s+=>)\s*\(?\s*["'](.*?)['"]/) { + my $errtype; + # If it's a normal ThrowCode/UserError + if ($2) { + $errtype = lc($2); + } + # If it's an AUTH_ERROR tag + else { + $errtype = 'code'; + } + my $errtag = $3; push @{$Errors{$errtype}{$errtag}{used_in}{$file}}, $lineno; } } |