Change 33229 by [EMAIL PROTECTED] on 2008/02/04 09:36:11
Fix op/reg_email_thr.t when PERLIO=stdio
Affected files ...
... //depot/perl/t/op/reg_email.t#3 edit
Differences ...
==== //depot/perl/t/op/reg_email.t#3 (text) ====
Index: perl/t/op/reg_email.t
--- perl/t/op/reg_email.t#2~32931~ 2008-01-09 14:42:04.000000000 -0800
+++ perl/t/op/reg_email.t 2008-02-04 01:36:11.000000000 -0800
@@ -73,6 +73,10 @@
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 /^#/;
End of Patch.
