More SvPV consting.

p4raw-id: //depot/perl@24740

1 files changed, 1 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 896b5737f2..3299076a6f 100644
--- a/pp.c
+++ b/pp.c
@@ -553,10 +553,9 @@ PP(pp_gelem)
     SV *tmpRef;
     const char *elem;
     dSP;
-    STRLEN n_a;
 
     sv = POPs;
-    elem = SvPV(sv, n_a);
+    elem = SvPV_nolen_const(sv);
     gv = (GV*)POPs;
     tmpRef = Nullsv;
     sv = Nullsv;