D'oh! 27508 wasn't quite testing what I wanted it to test. This does.

p4raw-id: //depot/perl@27510

diff --git a/lib/overload.t b/lib/overload.t
index b12cf27..6dafa07 100644 (file)
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -1232,7 +1232,6 @@ foreach my $op (qw(<=> == != < <= > >=)) {
     use overload '""' => sub {"CLiK KLAK"};
 
     package Ksshfwoom;
-    use overload '""' => sub {"OOOKK AWK"};
 
     package main;
 
@@ -1248,8 +1247,8 @@ foreach my $op (qw(<=> == != < <= > >=)) {
 
     bless $obj, 'Ksshfwoom';
 
-    is ($obj, "OOOKK AWK");
-    is ($ref, "OOOKK AWK");
+    like ($obj, qr/^Ksshfwoom=/);
+    like ($ref, qr/^Ksshfwoom=/);
 
     undef $obj;
     is ($ref, undef);