diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-03-15 18:47:32 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-03-15 18:47:32 +0000 |
commit | cd75d542cb04cc956088837fbf5e9449c9a8fef1 (patch) | |
tree | 5add6a3fc23ce010200339066342dac1792683a4 /lib/overload.t | |
parent | 2372186ae65ad0411bfab65604891fae243522b7 (diff) | |
download | perl-cd75d542cb04cc956088837fbf5e9449c9a8fef1.tar.gz |
D'oh! 27508 wasn't quite testing what I wanted it to test. This does.
p4raw-id: //depot/perl@27510
Diffstat (limited to 'lib/overload.t')
-rw-r--r-- | lib/overload.t | 5 |
1 files changed, 2 insertions, 3 deletions
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); |