r27148 - in /trunk/libjson-xs-perl: Changes META.yml XS.pm XS.xs debian/changelog t/02_error.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Nov 22 17:05:38 UTC 2008
Author: gregoa
Date: Sat Nov 22 17:05:34 2008
New Revision: 27148
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27148
Log:
New upstream release.
Modified:
trunk/libjson-xs-perl/Changes
trunk/libjson-xs-perl/META.yml
trunk/libjson-xs-perl/XS.pm
trunk/libjson-xs-perl/XS.xs
trunk/libjson-xs-perl/debian/changelog
trunk/libjson-xs-perl/t/02_error.t
Modified: trunk/libjson-xs-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/Changes?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/Changes (original)
+++ trunk/libjson-xs-perl/Changes Sat Nov 22 17:05:34 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: trunk/libjson-xs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/META.yml?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/META.yml (original)
+++ trunk/libjson-xs-perl/META.yml Sat Nov 22 17:05:34 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: trunk/libjson-xs-perl/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/XS.pm?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/XS.pm (original)
+++ trunk/libjson-xs-perl/XS.pm Sat Nov 22 17:05:34 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: trunk/libjson-xs-perl/XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/XS.xs?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/XS.xs (original)
+++ trunk/libjson-xs-perl/XS.xs Sat Nov 22 17:05:34 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: trunk/libjson-xs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/debian/changelog?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/debian/changelog (original)
+++ trunk/libjson-xs-perl/debian/changelog Sat Nov 22 17:05:34 2008
@@ -1,7 +1,8 @@
-libjson-xs-perl (2.23-3) UNRELEASED; urgency=low
+libjson-xs-perl (2.231-1) UNRELEASED; urgency=low
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
+ * New upstream release.
-- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:44:09 +0100
Modified: trunk/libjson-xs-perl/t/02_error.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-xs-perl/t/02_error.t?rev=27148&op=diff
==============================================================================
--- trunk/libjson-xs-perl/t/02_error.t (original)
+++ trunk/libjson-xs-perl/t/02_error.t Sat Nov 22 17:05:34 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