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

[Nicholas Clark]

Change 27510 by [EMAIL PROTECTED] on 2006/03/15 18:47:32

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

Affected files ...

... //depot/perl/lib/overload.t#24 edit

Differences ...

==== //depot/perl/lib/overload.t#24 (text) ====
Index: perl/lib/overload.t
--- perl/lib/overload.t#23~27508~       2006-03-15 09:57:14.000000000 -0800
+++ perl/lib/overload.t 2006-03-15 10:47:32.000000000 -0800
@@ -1232,7 +1232,6 @@
     use overload '""' => sub {"CLiK KLAK"};
 
     package Ksshfwoom;
-    use overload '""' => sub {"OOOKK AWK"};
 
     package main;
 
@@ -1248,8 +1247,8 @@
 
     bless $obj, 'Ksshfwoom';
 
-    is ($obj, "OOOKK AWK");
-    is ($ref, "OOOKK AWK");
+    like ($obj, qr/^Ksshfwoom=/);
+    like ($ref, qr/^Ksshfwoom=/);
 
     undef $obj;
     is ($ref, undef);
End of Patch.