From 2596d9fe3023e9da9e3e000993c9f26fa30909ef Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Sep 2005 10:53:56 +0000
Subject: Remove the last STRLEN n_a;s that my compiler can reach.

p4raw-id: //depot/perl@25530
---
 perly.act | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perly.act')

diff --git a/perly.act b/perly.act
index 0484e296d0..1a1a1fa93c 100644
--- a/perly.act
+++ b/perly.act
@@ -329,7 +329,7 @@ case 2:
 
   case 61:
 #line 341 "perly.y"
-    { STRLEN n_a; const char *name = SvPV_const(((SVOP*)(yyvsp[0].opval))->op_sv,n_a);
+    { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[0].opval))->op_sv);
 			  if (strEQ(name, "BEGIN") || strEQ(name, "END")
 			      || strEQ(name, "INIT") || strEQ(name, "CHECK"))
 			      CvSPECIAL_on(PL_compcv);
-- 
cgit v1.2.1