Change 11215 by jhi@alpha on 2001/07/08 15:52:57
Slight tweaks on #11213.
Affected files ...
... //depot/perl/toke.c#373 edit
Differences ...
==== //depot/perl/toke.c#373 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Sun Jul 8 10:00:05 2001
+++ perl/toke.c Sun Jul 8 10:00:05 2001
@@ -2167,7 +2167,7 @@
/* 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 @@
#pragma segment Main
#endif
-int S_pending_ident(pTHX)
+static int
+S_pending_ident(pTHX)
{
register char *d;
register I32 tmp;
End of Patch.
