Fix op/reg_email_thr.t when PERLIO=stdio

p4raw-id: //depot/perl@33229

diff --git a/t/op/reg_email.t b/t/op/reg_email.t
index 177820c..6255ee3 100644 (file)
--- a/t/op/reg_email.t
+++ b/t/op/reg_email.t
@@ -73,6 +73,10 @@ 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 /^#/;