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

--- Basic/Gen/PP.pm.orig	2012-05-16 11:05:14.000000000 +0000
+++ Basic/Gen/PP.pm	2012-06-11 12:31:54.000000000 +0000
@@ -1897,7 +1897,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)))));  PDL_COMMENT("The package to bless output vars into is taken from the first input var")
+      bless_stash = SvSTASH(SvRV(ST(0))),
+      objname = HvNAME(bless_stash);  PDL_COMMENT("The package to bless output vars into is taken from the first input var")
   }
   if (items == $nmaxonstack) { PDL_COMMENT("all variables on stack, read in output and temp vars")
     nreturn = $noutca;