From db7c38b0b0dcd88368ad5b88df89772f63292386 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 3 Jan 2013 23:31:08 -0600 Subject: make it explicit that anon stash support requires 5.10 --- XS.xs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'XS.xs') diff --git a/XS.xs b/XS.xs index f636392..84f89f7 100644 --- a/XS.xs +++ b/XS.xs @@ -556,6 +556,10 @@ new(class, package) } } else if (SvROK(package) && SvTYPE(SvRV(package)) == SVt_PVHV) { +#if PERL_VERSION < 10 + croak("The XS implementation of Package::Stash does not support " + "anonymous stashes before perl 5.10"); +#else instance = newHV(); if (!hv_store(instance, "namespace", 9, SvREFCNT_inc_simple_NN(package), 0)) { @@ -563,6 +567,7 @@ new(class, package) SvREFCNT_dec(instance); croak("Couldn't initialize the 'namespace' key, hv_store failed"); } +#endif } else { croak("Package::Stash->new must be passed the name of the package to access"); -- cgit v1.2.3-54-g00ecf