From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 8 Jul 2001 15:52:57 +0000 (+0000)
Subject: Slight tweaks on #11213.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e930465f0bda9d63d97d7bcbea42ed0d09f68de3;p=p5sagit%2Fp5-mst-13.2.git

Slight tweaks on #11213.

p4raw-id: //depot/perl@11215
---

diff --git a/toke.c b/toke.c
index 26b99d3..09f5988 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;