Change 11801 by gsar@rake on 2001/08/31 17:49:03
remove age-old UNICOS "workaround" that introduces a static, and
hence an egregious race condition for threaded builds (*sigh*
beats me why this kludge wasn't guarded by a UNICOS-specific
#define *sigh*)
Affected files ...
... //depot/maint-5.6/perl/perl.c#48 edit
Differences ...
==== //depot/maint-5.6/perl/perl.c#48 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Fri Aug 31 12:00:05 2001
+++ perl/perl.c Fri Aug 31 12:00:05 2001
@@ -3204,16 +3204,10 @@
Safefree(PL_retstack);
}
-#ifndef PERL_OBJECT
-static PerlIO *tmpfp; /* moved outside init_lexer() because of UNICOS bug */
-#endif
-
STATIC void
S_init_lexer(pTHX)
{
-#ifdef PERL_OBJECT
- PerlIO *tmpfp;
-#endif
+ PerlIO *tmpfp;
tmpfp = PL_rsfp;
PL_rsfp = Nullfp;
lex_start(PL_linestr);
End of Patch.
