Avoid obscure failures when a regexp hasn't matched

p4raw-id: //depot/perl@30149

1 files changed, 8 insertions, 4 deletions

diff --git a/t/op/bless.t b/t/op/bless.t
index 6aea7ba7e0..d5ae885b52 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