r27146 - in /branches/upstream/libjson-xs-perl/current: Changes META.yml XS.pm XS.xs t/02_error.t

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Nov 22 17:04:38 UTC 2008


Author: gregoa
Date: Sat Nov 22 17:04:36 2008
New Revision: 27146

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27146
Log:
[svn-upgrade] Integrating new upstream version, libjson-xs-perl (2.231)

Modified:
    branches/upstream/libjson-xs-perl/current/Changes
    branches/upstream/libjson-xs-perl/current/META.yml
    branches/upstream/libjson-xs-perl/current/XS.pm
    branches/upstream/libjson-xs-perl/current/XS.xs
    branches/upstream/libjson-xs-perl/current/t/02_error.t

Modified: branches/upstream/libjson-xs-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/Changes?rev=27146&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/Changes (original)
+++ branches/upstream/libjson-xs-perl/current/Changes Sat Nov 22 17:04:36 2008
@@ -1,4 +1,11 @@
 Revision history for Perl extension JSON::XS
+
+2.231 Thu Nov 20 04:59:08 CET 2008
+	- work around 5.10.0 magic bugs where manipulating magic values
+          (such as $1) would permanently damage them as perl would
+          ignore the magicalness, by making a full copy of the string,
+          reported by Dmitry Karasik.
+        - work around spurious wanrings under older perl 5.8's.
 
 2.23 Mon Sep 29 05:08:29 CEST 2008
 	- fix a compilation problem when perl is not using char * as, well,

Modified: branches/upstream/libjson-xs-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/META.yml?rev=27146&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/META.yml (original)
+++ branches/upstream/libjson-xs-perl/current/META.yml Sat Nov 22 17:04:36 2008
@@ -1,10 +1,10 @@
 --- #YAML:1.0
 name:                JSON-XS
-version:             2.23
+version:             2.231
 abstract:            ~
 license:             ~
 author:              ~
-generated_by:        ExtUtils::MakeMaker version 6.44
+generated_by:        ExtUtils::MakeMaker version 6.42
 distribution_type:   module
 requires:     
 meta-spec:

Modified: branches/upstream/libjson-xs-perl/current/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/XS.pm?rev=27146&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/XS.pm (original)
+++ branches/upstream/libjson-xs-perl/current/XS.pm Sat Nov 22 17:04:36 2008
@@ -104,7 +104,7 @@
 no warnings;
 use strict;
 
-our $VERSION = '2.23';
+our $VERSION = '2.231';
 our @ISA = qw(Exporter);
 
 our @EXPORT = qw(encode_json decode_json to_json from_json);

Modified: branches/upstream/libjson-xs-perl/current/XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/XS.xs?rev=27146&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/XS.xs (original)
+++ branches/upstream/libjson-xs-perl/current/XS.xs Sat Nov 22 17:04:36 2008
@@ -1412,7 +1412,13 @@
   STRLEN offset;
   SV *sv;
 
-  SvGETMAGIC (string);
+  /* work around bugs in 5.10 where manipulating magic values
+   * will perl ignore the magic in subsequent accesses
+   */
+  /*SvGETMAGIC (string);*/
+  if (SvMAGICAL (string))
+    string = sv_2mortal (newSVsv (string));
+
   SvUPGRADE (string, SVt_PV);
 
   /* work around a bug in perl 5.10, which causes SvCUR to fail an

Modified: branches/upstream/libjson-xs-perl/current/t/02_error.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjson-xs-perl/current/t/02_error.t?rev=27146&op=diff
==============================================================================
--- branches/upstream/libjson-xs-perl/current/t/02_error.t (original)
+++ branches/upstream/libjson-xs-perl/current/t/02_error.t Sat Nov 22 17:04:36 2008
@@ -2,6 +2,7 @@
 
 use utf8;
 use JSON::XS;
+no warnings;
 
 our $test;
 sub ok($) {




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