Make like() and unlike() in t/test.pl refuse non-qr// arguments

[perl5.git] / t / op / qr.t

diff --git a/t/op/qr.t b/t/op/qr.t
index ac017eb..dc49f1e 100644 (file)
--- a/t/op/qr.t
+++ b/t/op/qr.t
@@ -89,12 +89,12 @@ is ref \$t2, 'main', 'regexp assignment is not maledictory';
     $_ = 1.1;
     $_ = ${qr//};
     is 0+$_, 0, 'double upgraded to regexp';
-    like $w, 'numeric', 'produces non-numeric warning';
+    like $w, qr/numeric/, 'produces non-numeric warning';
     undef $w;
     $_ = 1;
     $_ = ${qr//};
     is 0+$_, 0, 'int upgraded to regexp';
-    like $w, 'numeric', 'likewise produces non-numeric warning';
+    like $w, qr/numeric/, 'likewise produces non-numeric warning';
 }
 
 sub {