From cd75d542cb04cc956088837fbf5e9449c9a8fef1 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 15 Mar 2006 18:47:32 +0000 Subject: D'oh! 27508 wasn't quite testing what I wanted it to test. This does. p4raw-id: //depot/perl@27510 --- lib/overload.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lib/overload.t') diff --git a/lib/overload.t b/lib/overload.t index b12cf27623..6dafa07576 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); -- cgit v1.2.1