Perl 5.8 fixes

- use Lexical::SealRequireHints - set $^H |= 0x20000 - use hv_fetch() instead of hv_fetchs()
ilmari · Nov 19, 2010 · 86e4d3a · 86e4d3a
1 parent 0d83355
commit 86e4d3a
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,10 @@
 Revision history for multidimensional
 
 {{$NEXT}}
+ - Perl 5.8 fixes
+   - use Lexical::SealRequireHints
+   - set $^H |= 0x20000
+   - use hv_fetch() instead of hv_fetchs()
 
 0.003     2010-11-18 12:53:38 Europe/London
  - Call ExtUtils::Depends from the built Makefile.PL,

diff --git a/lib/multidimensional.pm b/lib/multidimensional.pm
@@ -5,6 +5,7 @@ package multidimensional;
 use strict;
 use warnings;
 
+use Lexical::SealRequireHints;
 use B::Hooks::OP::Check;
 use XSLoader;
 
@@ -40,7 +41,7 @@ scope being compiled.
 
 =cut
 
-sub unimport { $^H{+(__PACKAGE__)} = 1 }
+sub unimport { $^H |= 0x20000; $^H{+(__PACKAGE__)} = 1 }
 
 =method import
 
@@ -49,7 +50,7 @@ scope being compiled;
 
 =cut
 
-sub import { $^H{+(__PACKAGE__)} = undef }
+sub import { delete $^H{+(__PACKAGE__)} }
 
 =head1 SEE ALSO
 

diff --git a/multidimensional.xs b/multidimensional.xs
@@ -4,6 +4,7 @@
 #include "hook_op_check.h"
 
 #define __PACKAGE__ "multidimensional"
+#define __PACKAGE_LEN__ strlen(__PACKAGE__)
 
 STATIC OP *last_list_start;
 
@@ -16,7 +17,7 @@ STATIC OP *multidimensional_list_check_op (pTHX_ OP *op, void *user_data) {
 }
 
 STATIC OP *multidimensional_helem_check_op (pTHX_ OP *op, void *user_data) {
-    SV **hint = hv_fetchs(GvHV(PL_hintgv), __PACKAGE__, 0);
+    SV **hint = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, 0);
 
     PERL_UNUSED_ARG(user_data);