summaryrefslogtreecommitdiff
path: root/lib/overload.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-03-15 18:47:32 +0000
committerNicholas Clark <nick@ccl4.org>2006-03-15 18:47:32 +0000
commitcd75d542cb04cc956088837fbf5e9449c9a8fef1 (patch)
tree5add6a3fc23ce010200339066342dac1792683a4 /lib/overload.t
parent2372186ae65ad0411bfab65604891fae243522b7 (diff)
downloadperl-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.t5
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);