File PDL-2.4.7-ppdef.diff of Package perl-PDL

Index: Basic/Gen/PP.pm
===================================================================
--- Basic/Gen/PP.pm.orig
+++ Basic/Gen/PP.pm
@@ -1849,7 +1849,8 @@ $pars
   if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) {
     parent = ST(0);
     if (sv_isobject(parent))
-      objname = HvNAME((bless_stash = SvSTASH(SvRV(ST(0)))));  /* The package to bless output vars into is taken from the first input var */
+      bless_stash =  SvSTASH(SvRV(ST(0))),
+      objname = HvNAME(bless_stash);  /* The package to bless output vars into is taken from the first input var */
   }
   if (items == $nmaxonstack) { /* all variables on stack, read in output and temp vars */
     nreturn = $noutca;