summaryrefslogtreecommitdiffstats
path: root/t/012throwables.t
diff options
context:
space:
mode:
Diffstat (limited to 't/012throwables.t')
-rw-r--r--t/012throwables.t15
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;
}
}