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

--- Basic/Gen/PP.pm
+++ Basic/Gen/PP.pm
@@ -2169,7 +2169,8 @@
   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;