PERFORCE change 11806 for review

Change 11806 by pudge@pudge-mobile on 2001/09/01 00:04:52

	Integrate change 11801 from maintperl

Affected files ...

... //depot/maint-5.6/macperl/perl.c#3 edit

Differences ...

==== //depot/maint-5.6/macperl/perl.c#3 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~	Fri Aug 31 18:15:05 2001
+++ perl/perl.c	Fri Aug 31 18:15: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.