In perl.git, the branch smoke-me/salva/Storable has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/81af16c1db1cae60ae74a8914c3a4bedeef1cade?hp=0e6b41b5683f2b07a6400d094ec39bdac28cdd8c>
- Log -----------------------------------------------------------------
commit 81af16c1db1cae60ae74a8914c3a4bedeef1cade
Author: Salvador <sfand...@yahoo.com>
Date: Thu Jun 13 11:47:52 2013 +0200
a SvMAGICAL test guarding a mg_find call was been performed on the wrong
object
-----------------------------------------------------------------------
Summary of changes:
dist/Storable/Storable.xs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 5a8ceea..ddfe410 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -2167,7 +2167,7 @@ static int store_hook(pTHX_ store_cxt_t *store_cxt, SV
*sv, int type, HV *pkg, S
* references. We use magic as a marker on the hook SV
* that the class does not use STORABLE_attach at all */
- if (!SvMAGICAL(sv) || !mg_find(hook, PERL_MAGIC_ext)) {
+ if (!SvMAGICAL(hook) || !mg_find(hook, PERL_MAGIC_ext)) {
GV* gv = gv_fetchmethod_autoload(pkg,
"STORABLE_attach", FALSE);
if (gv && isGV(gv))
CROAK(("Freeze cannot return references if %s
class is using STORABLE_attach", classname));
--
Perl5 Master Repository
