diff options
| author | Rick Delaney <rick@consumercontact.com> | 2004-10-01 21:04:49 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-04 10:57:15 +0000 |
| commit | d411a6a9eb5df09116806ed1c441d30d37e8d5e8 (patch) | |
| tree | 11fc1e6ca8b85f70c7028f3f3d5115fa0ffe117d /lib/overload.pm | |
| parent | 78b110b07ed3c6a4447914870f86996e65674caf (diff) | |
| download | perl-d411a6a9eb5df09116806ed1c441d30d37e8d5e8.tar.gz | |
Re: [perl #31793] Data::Dumper: Useqq interacts badly with overloading
Message-ID: <20041002050448.GB5059@biff.bort.ca>
p4raw-id: //depot/perl@23347
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 a75c817933..1853499da0 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -94,7 +94,7 @@ sub AddrRef { } sub StrVal { - (ref $_[0] && OverloadedStringify($_[0]) or ref($_[0]) eq 'Regexp') ? + (ref $_[0] && Overloaded($_[0]) or ref($_[0]) eq 'Regexp') ? (AddrRef(shift)) : "$_[0]"; } |