More de-cut-and-pastos.

[p5sagit/p5-mst-13.2.git] / perly.c

diff --git a/perly.c b/perly.c
index a13d388..50494a3 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -1771,7 +1771,7 @@ case 56:
 break;
 case 57:
 #line 302 "perly.y"
-{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, PL_na);
+{ STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, n_a);
                          if (strEQ(name, "BEGIN") || strEQ(name, "END")
                              || strEQ(name, "INIT"))
                              CvUNIQUE_on(PL_compcv);