r68006 - in /branches/upstream/libautobox-perl/current: Changes META.yml Makefile.PL README autobox.xs lib/autobox.pm lib/autobox.pod t/hints.t

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Sat Jan 29 10:59:39 UTC 2011


Author: angelabad-guest
Date: Sat Jan 29 10:58:43 2011
New Revision: 68006

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68006
Log:
[svn-upgrade] new version libautobox-perl (2.72)

Modified:
    branches/upstream/libautobox-perl/current/Changes
    branches/upstream/libautobox-perl/current/META.yml
    branches/upstream/libautobox-perl/current/Makefile.PL
    branches/upstream/libautobox-perl/current/README
    branches/upstream/libautobox-perl/current/autobox.xs
    branches/upstream/libautobox-perl/current/lib/autobox.pm
    branches/upstream/libautobox-perl/current/lib/autobox.pod
    branches/upstream/libautobox-perl/current/t/hints.t

Modified: branches/upstream/libautobox-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/Changes?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/Changes (original)
+++ branches/upstream/libautobox-perl/current/Changes Sat Jan 29 10:58:43 2011
@@ -1,4 +1,7 @@
 Revision history for Perl extension autobox
+
+2.72  Fri Jan 28 12:16:34 2011
+    - fix PL_hints conflict with HINT_RE_TAINT (thanks, Peter Rabbitson)
 
 2.71  Thu Sep 23 02:28:10 2010
     - fix for recent perls: remove cargo-cultism

Modified: branches/upstream/libautobox-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/META.yml?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/META.yml (original)
+++ branches/upstream/libautobox-perl/current/META.yml Sat Jan 29 10:58:43 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               autobox
-version:            2.71
+version:            2.72
 abstract:           call methods on native types
 author:
     - chocolateboy <chocolate at cpan.org>
@@ -18,7 +18,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.56
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libautobox-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/Makefile.PL?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/Makefile.PL (original)
+++ branches/upstream/libautobox-perl/current/Makefile.PL Sat Jan 29 10:58:43 2011
@@ -28,8 +28,8 @@
     AUTHOR               => 'chocolateboy <chocolate at cpan.org>',
     INC                  => '-I.',
     OPTIMIZE             => $OPTIMIZE,
-    ($ExtUtils::MakeMaker::VERSION >= 6.31 ? (LICENSE => 'perl') : ()),
-    ($ExtUtils::MakeMaker::VERSION >= 6.46 ?
+    ($ExtUtils::MakeMaker::VERSION ge 6.31 ? (LICENSE => 'perl') : ()),
+    ($ExtUtils::MakeMaker::VERSION ge 6.46 ?
         (META_MERGE => {
             resources => {
                 repository => 'http://github.com/chocolateboy/autobox',

Modified: branches/upstream/libautobox-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/README?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/README (original)
+++ branches/upstream/libautobox-perl/current/README Sat Jan 29 10:58:43 2011
@@ -1,4 +1,4 @@
-autobox version 2.71
+autobox version 2.72
 ====================
 
 The autobox pragma allows methods to be called on integers, floats, strings, arrays,
@@ -33,4 +33,4 @@
 This module is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
 
-Copyright (c) 2003-2010 chocolateboy <chocolate at cpan.org>
+Copyright (c) 2003-2011 chocolateboy <chocolate at cpan.org>

Modified: branches/upstream/libautobox-perl/current/autobox.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/autobox.xs?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/autobox.xs (original)
+++ branches/upstream/libautobox-perl/current/autobox.xs Sat Jan 29 10:58:43 2011
@@ -25,7 +25,7 @@
      *
      * XXX this is fixed in #33311: http://www.nntp.perl.org/group/perl.perl5.porters/2008/02/msg134131.html
      */
-    if ((PL_hints & 0x120000) == 0x120000) {
+    if ((PL_hints & 0x80020000) == 0x80020000) {
         OP *prev = ((cUNOPo->op_first->op_sibling) ? cUNOPo : ((UNOP*)cUNOPo->op_first))->op_first;
         OP *o2 = prev->op_sibling;
         OP *cvop;

Modified: branches/upstream/libautobox-perl/current/lib/autobox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/lib/autobox.pm?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/lib/autobox.pm (original)
+++ branches/upstream/libautobox-perl/current/lib/autobox.pm Sat Jan 29 10:58:43 2011
@@ -11,7 +11,7 @@
 use Scope::Guard;
 use Storable;
 
-our $VERSION = '2.71';
+our $VERSION = '2.72';
 
 XSLoader::load 'autobox', $VERSION;
 
@@ -295,7 +295,7 @@
     #
     # It needs to be set unconditionally because it may have been unset in unimport
 
-    $^H |= 0x120000; # set HINT_LOCALIZE_HH + an unused bit to work around a %^H bug
+    $^H |= 0x80020000; # set HINT_LOCALIZE_HH + an unused bit to work around a %^H bug
 
     # install the specified bindings in the current scope
     _install($bindings);
@@ -390,7 +390,7 @@
     if (%$bindings) {
         _install($bindings);
     } else { # remove all traces of autobox from the current scope
-        $^H &= ~0x120000; # unset HINT_LOCALIZE_HH + the additional bit
+        $^H &= ~0x80020000; # unset HINT_LOCALIZE_HH + the additional bit
         delete $^H{autobox};
         delete $^H{autobox_scope};
         delete $^H{autobox_leave}; # triggers the leave handler

Modified: branches/upstream/libautobox-perl/current/lib/autobox.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/lib/autobox.pod?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/lib/autobox.pod (original)
+++ branches/upstream/libautobox-perl/current/lib/autobox.pod Sat Jan 29 10:58:43 2011
@@ -648,7 +648,7 @@
         
 =head1 VERSION
 
-2.71
+2.72
 
 =head1 SEE ALSO
 
@@ -670,7 +670,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (c) 2003-2010, chocolateboy.
+Copyright (c) 2003-2011, chocolateboy.
 
 This module is free software. It may be used, redistributed
 and/or modified under the same terms as Perl itself.

Modified: branches/upstream/libautobox-perl/current/t/hints.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautobox-perl/current/t/hints.t?rev=68006&op=diff
==============================================================================
--- branches/upstream/libautobox-perl/current/t/hints.t (original)
+++ branches/upstream/libautobox-perl/current/t/hints.t Sat Jan 29 10:58:43 2011
@@ -5,18 +5,18 @@
 
 use Test::More tests => 5;
 
-BEGIN { is($^H & 0x100000, 0x000000) }
+BEGIN { is($^H & 0x80000000, 0x000000) }
 
 no autobox;
 
-BEGIN { is($^H & 0x100000, 0x000000) }
+BEGIN { is($^H & 0x80000000, 0x000000) }
 
 {
     use autobox;
-    BEGIN { is($^H & 0x120000, 0x120000) }
+    BEGIN { is($^H & 0x80020000, 0x80020000) }
     no autobox;
-    BEGIN { is($^H & 0x100000, 0x000000) }
+    BEGIN { is($^H & 0x80000000, 0x000000) }
     use autobox;
 }
 
-BEGIN { is($^H & 0x100000, 0x000000) }
+BEGIN { is($^H & 0x80000000, 0x000000) }




More information about the Pkg-perl-cvs-commits mailing list