From e930465f0bda9d63d97d7bcbea42ed0d09f68de3 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 8 Jul 2001 15:52:57 +0000
Subject: [PATCH] Slight tweaks on #11213.

p4raw-id: //depot/perl@11215
---
 toke.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.7.4