X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Foverload.pm;h=71b550ad5300d0739852d47e150c15704e1c227e;hb=567f8e5b1e23f102b4f20b5ec9c24fe82bf9fd13;hp=237856f7ffb7c69df9a0f1f4a94a533477a51fc7;hpb=76c43448ac432c021de5e478d6210fa84dcac466;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/overload.pm b/lib/overload.pm
index 237856f..71b550a 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) = @_;