Some more tests for \N

[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 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 /^#/;