Fix for 20001101.004, at least for the memleak part.

p4raw-id: //depot/perl@17310

diff --git a/lib/overload.pm b/lib/overload.pm
index 715f10a..fb1a0d1 100644 (file)
--- 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]";
 }