use MRO::Compat;
use Sub::Name ();
-our $VERSION = '0.09006';
+our $VERSION = '0.09007';
$VERSION = eval $VERSION;
# when changing minimum version don't forget to adjust L</PERFROMANCE> as well
*$fq_meth = Sub::Name::subname($fq_meth, $final_cref);
+ # older perls segfault if the cref behind the goto throws
+ # http://rt.perl.org/rt3/Public/Bug/Display.html?id=35878
+ return $final_cref->(@_) if ($] < 5.008009);
+
goto $final_cref;
};
};