X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=abb0c2d7b5f8e731fc1a3b7e279ee81f84d7e2cf;hb=dc507217b3331807446df6e7f16977ee2fdc418e;hp=26b99d3347e2eff196f615ad248f1cc09d862a09;hpb=8eceec63d7a4c39284b15f8b23984d5483bf6573;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index 26b99d3..abb0c2d 100644
--- a/toke.c
+++ b/toke.c
@@ -2167,7 +2167,7 @@ Perl_yylex(pTHX)
 
     /* check if there's an identifier for us to look at */
     if (PL_pending_ident) 
-        return pending_ident(aTHX);
+        return S_pending_ident(aTHX);
 
     /* no identifier pending identification */
 
@@ -5112,7 +5112,8 @@ Perl_yylex(pTHX)
 #pragma segment Main
 #endif
 
-int S_pending_ident(pTHX)
+static int
+S_pending_ident(pTHX)
 {
     register char *d;
     register I32 tmp;
@@ -7443,7 +7444,6 @@ Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
     PL_compcv = (CV*)NEWSV(1104,0);
     sv_upgrade((SV *)PL_compcv, is_format ? SVt_PVFM : SVt_PVCV);
     CvFLAGS(PL_compcv) |= flags;
-    CvDEFSTASH(PL_compcv) = PL_defstash;
 
     PL_comppad = newAV();
     av_push(PL_comppad, Nullsv);