Nuke some more n_a, and convert S_gv_ename from char * to const char *

p4raw-id: //depot/perl@24760

1 files changed, 1 insertions, 2 deletions

diff --git a/doop.c b/doop.c
index a5dcc684dc..b17da1ad29 100644
--- a/doop.c
+++ b/doop.c
@@ -1006,7 +1006,6 @@ Perl_do_chomp(pTHX_ register SV *sv)
 {
     register I32 count;
     STRLEN len;
-    STRLEN n_a;
     char *s;
     char *temp_buffer = NULL;
     SV* svrecode = Nullsv;
@@ -1123,7 +1122,7 @@ Perl_do_chomp(pTHX_ register SV *sv)
 		count += rs_charlen;
 	    }
 	}
-	s = SvPV_force(sv, n_a);
+	s = SvPV_force_nolen(sv);
 	SvCUR_set(sv, len);
 	*SvEND(sv) = '\0';
 	SvNIOK_off(sv);