diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-16 09:36:22 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-16 12:51:43 -0800 |
| commit | 1d621debdf39e8b3a1305bb768bf3b8af121d7e0 (patch) | |
| tree | bbf60924122e4cc53370c13c6593e539241188a6 /lib/overload.pm | |
| parent | e2a78392aa527d2b816d2b7f838b62bd5477f12a (diff) | |
| download | perl-1d621debdf39e8b3a1305bb768bf3b8af121d7e0.tar.gz | |
overload.pm: Put invalid arg warning in "overload" category
Existing overload warnings work that way.
Diffstat (limited to 'lib/overload.pm')
| -rw-r--r-- | lib/overload.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index 4892a31c4a..222eecd616 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -31,7 +31,7 @@ sub OVERLOAD { $package = shift; my %arg = @_; for (keys %arg) { - warn "overload arg '$_' is invalid" unless $ops_seen{$_}; + warnings::warnif("overload arg '$_' is invalid") unless $ops_seen{$_}; } my ($sub, $fb); $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching. |