diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-19 21:14:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-19 21:14:53 +0000 |
| commit | 7377d752f328690fcb4417d17046f5d18d3582d6 (patch) | |
| tree | 699e8dc5b3745015aeb695976c95e2a2cd621381 /lib/overload.pm | |
| parent | 640876195dd7102230f531813a79882745bbbd46 (diff) | |
| download | perl-7377d752f328690fcb4417d17046f5d18d3582d6.tar.gz | |
Fix for 20001101.004, at least for the memleak part.
p4raw-id: //depot/perl@17310
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 715f10a277..fb1a0d1236 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -91,7 +91,7 @@ sub AddrRef { } sub StrVal { - (OverloadedStringify($_[0]) or ref($_[0]) eq 'Regexp') ? + (ref $_[0] && OverloadedStringify($_[0]) or ref($_[0]) eq 'Regexp') ? (AddrRef(shift)) : "$_[0]"; } |