From bf070237479de3d22c665ba1e87e55b6d8e595f0 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 27 Jan 2007 12:55:31 +0000
Subject: [PATCH] Using gv_stashsv() and sv_setsv() in Perl_package reduces
 source and object code size.

p4raw-id: //depot/perl@30028
---
 op.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/op.c b/op.c
index 5d78580..14f1a7d 100644
--- a/op.c
+++ b/op.c
@@ -3482,8 +3482,7 @@ void
 Perl_package(pTHX_ OP *o)
 {
     dVAR;
-    const char *name;
-    STRLEN len;
+    SV *const sv = cSVOPo->op_sv;
 #ifdef PERL_MAD
     OP *pegop;
 #endif
@@ -3491,9 +3490,8 @@ Perl_package(pTHX_ OP *o)
     save_hptr(&PL_curstash);
     save_item(PL_curstname);
 
-    name = SvPV_const(cSVOPo->op_sv, len);
-    PL_curstash = gv_stashpvn(name, len, GV_ADD);
-    sv_setpvn(PL_curstname, name, len);
+    PL_curstash = gv_stashsv(sv, GV_ADD);
+    sv_setsv(PL_curstname, sv);
 
     PL_hints |= HINT_BLOCK_SCOPE;
     PL_copline = NOLINE;
-- 
2.7.4