diff options
| author | Rick Delaney <rick@consumercontact.com> | 2004-11-03 14:46:16 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-04 08:25:34 +0000 |
| commit | 1b1d102f0a25a469525d1d8639733ed50d8b39b6 (patch) | |
| tree | 31da716cdc701faa2af71b652ecdbb7e209cd086 /lib/overload.pm | |
| parent | 76c43448ac432c021de5e478d6210fa84dcac466 (diff) | |
| download | perl-1b1d102f0a25a469525d1d8639733ed50d8b39b6.tar.gz | |
Re: [PATCH perl-current] Re: [perl #31793] Data::Dumper: Useqq interacts badly with overloading
Message-ID: <20041104004616.GA11214@biff.bort.ca>
p4raw-id: //depot/perl@23470
Diffstat (limited to 'lib/overload.pm')
| -rw-r--r-- | lib/overload.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index 237856f7ff..71b550ad53 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -93,11 +93,7 @@ sub AddrRef { return sprintf("$class_prefix$type(0x%x)", $addr); } -sub StrVal { - (ref $_[0] && OverloadedStringify($_[0]) or ref($_[0]) eq 'Regexp') ? - (AddrRef(shift)) : - "$_[0]"; -} +*StrVal = *AddrRef; sub mycan { # Real can would leave stubs. my ($package, $meth) = @_; |