diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-09 19:22:30 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-09 19:53:23 -0700 |
| commit | 32d439155644a16b717019874a8d41a0d7c2f0e0 (patch) | |
| tree | 328a470260d631f0039798e4be7159762d1c87a5 /lib/overload.pm | |
| parent | 68611e6f323ebc92c5bbf5c3a541eb88cdd29520 (diff) | |
| download | perl-32d439155644a16b717019874a8d41a0d7c2f0e0.tar.gz | |
Remove redundant check from overload.pm
I added this in ca6102577e. It is silly to check ref $sub a few
lines after $sub = \&....
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 51801d643d..20c011994f 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -81,7 +81,7 @@ sub ov_method { return undef unless $globref; my $sub = \&{*$globref}; no overloading; - return $sub if !ref $sub or $sub != \&nil; + return $sub if $sub != \&nil; return shift->can($ {*$globref}); } |