r64477 - in /trunk/libclass-xsaccessor-perl: Changes MANIFEST META.yml debian/changelog lib/Class/XSAccessor.pm lib/Class/XSAccessor/Array.pm lib/Class/XSAccessor/Heavy.pm t/03hash_predicate.t t/50reentrant_goto_sigsegv.t
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Mon Nov 1 21:37:22 UTC 2010
Author: periapt-guest
Date: Mon Nov 1 21:37:06 2010
New Revision: 64477
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64477
Log:
New upstream release
Added:
trunk/libclass-xsaccessor-perl/t/50reentrant_goto_sigsegv.t
- copied unchanged from r64476, branches/upstream/libclass-xsaccessor-perl/current/t/50reentrant_goto_sigsegv.t
Modified:
trunk/libclass-xsaccessor-perl/Changes
trunk/libclass-xsaccessor-perl/MANIFEST
trunk/libclass-xsaccessor-perl/META.yml
trunk/libclass-xsaccessor-perl/debian/changelog
trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor.pm
trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Array.pm
trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Heavy.pm
trunk/libclass-xsaccessor-perl/t/03hash_predicate.t
Modified: trunk/libclass-xsaccessor-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/Changes?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/Changes (original)
+++ trunk/libclass-xsaccessor-perl/Changes Mon Nov 1 21:37:06 2010
@@ -1,4 +1,10 @@
Revision history for Perl extension Class-XSAccessor.
+
+1.09 Sun Oct 31 12:45 2010
+ - Fix #62531: Predicates return value, not bool (SJOHNSTON)
+ - TODO test for perl-crashing bug (in perl) that can happen
+ on (arcane) XSUB aliasing on perl's < 5.8.9 (Peter Rabbitson)
+ We're open for work-around patches.
1.08 Fri Sep 17 20:30 2010
- Promote latest development release to a stable release.
Modified: trunk/libclass-xsaccessor-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/MANIFEST?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/MANIFEST (original)
+++ trunk/libclass-xsaccessor-perl/MANIFEST Mon Nov 1 21:37:06 2010
@@ -34,6 +34,7 @@
t/39array_lvalue.t
t/40hash_bad_call.t
t/41array_bad_call.t
+t/50reentrant_goto_sigsegv.t
t/80threadbomb.t
XS/Array.xs
XS/Hash.xs
Modified: trunk/libclass-xsaccessor-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/META.yml?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/META.yml (original)
+++ trunk/libclass-xsaccessor-perl/META.yml Mon Nov 1 21:37:06 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Class-XSAccessor
-version: 1.08
+version: 1.09
abstract: Generate fast XS accessors without runtime compilation
author:
- Steffen Mueller <smueller at cpan.org>
Modified: trunk/libclass-xsaccessor-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/debian/changelog?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/debian/changelog (original)
+++ trunk/libclass-xsaccessor-perl/debian/changelog Mon Nov 1 21:37:06 2010
@@ -1,8 +1,12 @@
-libclass-xsaccessor-perl (1.08-2) UNRELEASED; urgency=low
+libclass-xsaccessor-perl (1.09-1) UNRELEASED; urgency=low
+ [ Ansgar Burchardt ]
* Update my email address.
- -- Ansgar Burchardt <ansgar at debian.org> Mon, 01 Nov 2010 11:16:27 +0100
+ [ Nicholas Bamber ]
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Mon, 01 Nov 2010 21:37:18 +0000
libclass-xsaccessor-perl (1.08-1) unstable; urgency=low
Modified: trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor.pm?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor.pm (original)
+++ trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor.pm Mon Nov 1 21:37:06 2010
@@ -6,7 +6,7 @@
use Class::XSAccessor::Heavy;
use XSLoader;
-our $VERSION = '1.08';
+our $VERSION = '1.09';
XSLoader::load('Class::XSAccessor', $VERSION);
@@ -49,7 +49,7 @@
["accessor", $acc_subs],
["lvalue_accessor", $lvacc_subs],
["test", $test_subs],
- ["pred_subs", $pred_subs] )
+ ["predicate", $pred_subs] )
{
my $subs = $subtype->[1];
foreach my $subname (keys %$subs) {
Modified: trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Array.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Array.pm?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Array.pm (original)
+++ trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Array.pm Mon Nov 1 21:37:06 2010
@@ -6,7 +6,7 @@
use Class::XSAccessor;
use Class::XSAccessor::Heavy;
-our $VERSION = '1.08';
+our $VERSION = '1.09';
sub import {
my $own_class = shift;
Modified: trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Heavy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Heavy.pm?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Heavy.pm (original)
+++ trunk/libclass-xsaccessor-perl/lib/Class/XSAccessor/Heavy.pm Mon Nov 1 21:37:06 2010
@@ -6,7 +6,7 @@
use warnings;
use Carp;
-our $VERSION = '1.08';
+our $VERSION = '1.09';
our @CARP_NOT = qw(
Class::XSAccessor
Class::XSAccessor::Array
Modified: trunk/libclass-xsaccessor-perl/t/03hash_predicate.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-xsaccessor-perl/t/03hash_predicate.t?rev=64477&op=diff
==============================================================================
--- trunk/libclass-xsaccessor-perl/t/03hash_predicate.t (original)
+++ trunk/libclass-xsaccessor-perl/t/03hash_predicate.t Mon Nov 1 21:37:06 2010
@@ -5,9 +5,9 @@
use Class::XSAccessor
accessors => { bar => 'bar' },
- getters => { get_foo => 'foo' },
+ getters => { get_foo => 'foo', get_zero => 'zero' },
setters => { set_foo => 'foo' },
- predicates => { has_foo => 'foo', has_bar => 'bar' };
+ predicates => { has_foo => 'foo', has_bar => 'bar', has_zero => 'zero' };
use Class::XSAccessor
predicates => 'single';
@@ -16,12 +16,12 @@
sub new {
my $class = shift;
- bless { bar => 'baz' }, $class;
+ bless { bar => 'baz', zero => 0 }, $class;
}
package main;
-use Test::More tests => 18;
+use Test::More tests => 20;
my $obj = Class::XSAccessor::Test->new();
@@ -43,6 +43,9 @@
ok(!$obj->has_foo());
ok(!$obj->has_bar());
+is($obj->get_zero, 0);
+ok($obj->has_zero);
+
ok(!$obj->single);
ok(!$obj->mult);
ok(!$obj->iple);
More information about the Pkg-perl-cvs-commits
mailing list