X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fbless.t;h=d5ae885b52f9779a52311f7172085e5265f409b8;hb=21fa6956243df9cb622bebfa0934ea7923519b4f;hp=6aea7ba7e0b871899efde53cc75aae3d13655e40;hpb=4a32f131d097e4eeab6d11f1f34fb5051d0103c7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/bless.t b/t/op/bless.t
index 6aea7ba..d5ae885 100644
--- a/t/op/bless.t
+++ b/t/op/bless.t
@@ -14,10 +14,14 @@ sub expected {
     is(ref($object), $package);
     my $r = qr/^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/;
     like("$object", $r);
-    "$object" =~ $r;
-    is($1, $type);
-    # in 64-bit platforms hex warns for 32+ -bit values
-    cmp_ok(do {no warnings 'portable'; hex($2)}, '==', $object);
+    if ("$object" =~ $r) {
+	is($1, $type);
+	# in 64-bit platforms hex warns for 32+ -bit values
+	cmp_ok(do {no warnings 'portable'; hex($2)}, '==', $object);
+    }
+    else {
+	fail(); fail();
+    }
 }
 
 # test blessing simple types