This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
D'oh! 27508 wasn't quite testing what I wanted it to test. This does.
authorNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 18:47:32 +0000 (18:47 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 18:47:32 +0000 (18:47 +0000)
p4raw-id: //depot/perl@27510

lib/overload.t

index b12cf27..6dafa07 100644 (file)
@@ -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);