From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 4 Feb 2008 09:36:11 +0000 (+0000)
Subject: Fix op/reg_email_thr.t when PERLIO=stdio
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0e63aba9e8d0c9fd4a981938ea035fc71f62370;p=p5sagit%2Fp5-mst-13.2.git

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