Fix [RT#66098] -- stricter checking on SvIVX exposed a lack of SvIOK check

[p5sagit/p5-mst-13.2.git] / t / op / reg_email.t

diff --git a/t/op/reg_email.t b/t/op/reg_email.t
index c53dd82..6255ee3 100644 (file)
--- a/t/op/reg_email.t
+++ b/t/op/reg_email.t
@@ -66,13 +66,22 @@ my $email = qr {
     (?&address)
 }x;
 
-my $count = 0;
 
-$| = 1;
-while (<DATA>) {
-    chomp;
-    next if /^#/;
-    print /^$email$/ ? "ok " : "not ok ", ++ $count, "\n";
+run_tests() unless caller;
+
+sub run_tests {
+    my $count = 0;
+
+    $| = 1;
+    # rewinding DATA is necessary with PERLIO=stdio when this
+    # test is run from another thread
+    seek *DATA, 0, 0;
+    while (<DATA>) { last if /^__DATA__/ }
+    while (<DATA>) {
+       chomp;
+       next if /^#/;
+       print /^$email$/ ? "ok " : "not ok ", ++ $count, "\n";
+    }
 }
 
 #