change #22071 (taint bug in $^0) introduced a potential double

[p5sagit/p5-mst-13.2.git] / perly_c.diff

diff --git a/perly_c.diff b/perly_c.diff
index 84c24f5..1a9c2d7 100644 (file)
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -1,5 +1,5 @@
---- y.tab.c    Mon Sep 30 04:20:57 2002
-+++ perly.c    Mon Sep 30 04:18:04 2002
+--- perly.c.orig       Sun Dec 28 01:04:08 2003
++++ perly.c    Sun Dec 28 01:08:37 2003
 @@ -1,5 +1,5 @@
  #ifndef lint
 -static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
@@ -196,7 +196,7 @@
 -short yyss[YYSTACKSIZE];
 -YYSTYPE yyvs[YYSTACKSIZE];
 -#define yystacksize YYSTACKSIZE
- #line 795 "perly.y"
+ #line 796 "perly.y"
   /* PROGRAM */
  
 @@ -1578,7 +1504,7 @@
@@ -204,7 +204,7 @@
  #define yyparse() Perl_yyparse(pTHX)
  
 -#line 1582 "y.tab.c"
-+#line 1582 "perly.c"
++#line 1508 "perly.c"
  #define YYABORT goto yyabort
  #define YYACCEPT goto yyaccept
  #define YYERROR goto yyerrlab
@@ -373,16 +373,16 @@
                  yystate, yyn, yyrule[yyn]);
  #endif
      yym = yylen[yyn];
-@@ -2578,7 +2558,7 @@
- #line 792 "perly.y"
+@@ -2579,7 +2559,7 @@
+ #line 793 "perly.y"
  { yyval.opval = yyvsp[0].opval; }
  break;
--#line 2582 "y.tab.c"
-+#line 2582 "perly.c"
+-#line 2583 "y.tab.c"
++#line 2563 "perly.c"
      }
      yyssp -= yym;
      yystate = *yyssp;
-@@ -2588,7 +2568,7 @@
+@@ -2589,7 +2569,7 @@
      {
  #if YYDEBUG
          if (yydebug)
@@ -391,7 +391,7 @@
   state %d\n", YYFINAL);
  #endif
          yystate = YYFINAL;
-@@ -2603,7 +2583,7 @@
+@@ -2604,7 +2584,7 @@
                  yys = 0;
                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                  if (!yys) yys = "illegal-symbol";
@@ -400,7 +400,7 @@
                          YYFINAL, yychar, yys);
              }
  #endif
-@@ -2618,20 +2598,50 @@
+@@ -2619,20 +2599,50 @@
          yystate = yydgoto[yym];
  #if YYDEBUG
      if (yydebug)