From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 15 Mar 2006 18:47:32 +0000 (+0000)
Subject: D'oh! 27508 wasn't quite testing what I wanted it to test. This does.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd75d542cb04cc956088837fbf5e9449c9a8fef1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);