Change 30028: Using gv_stashsv() and sv_setsv() in Perl_package reduces source and

[Nicholas Clark]

Change 30028 by [EMAIL PROTECTED] on 2007/01/27 12:55:31

        Using gv_stashsv() and sv_setsv() in Perl_package reduces source and
        object code size.

Affected files ...

... //depot/perl/op.c#880 edit

Differences ...

==== //depot/perl/op.c#880 (text) ====
Index: perl/op.c
--- perl/op.c#879~29977~        2007-01-25 12:57:56.000000000 -0800
+++ perl/op.c   2007-01-27 04:55:31.000000000 -0800
@@ -3482,8 +3482,7 @@
 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 @@
     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;
End of Patch.