r33516 - in /branches/upstream/libconvert-binary-c-perl/current: Changes META.yml bin/ccconfig cbc/sourcify.c lib/Convert/Binary/C.pm lib/Convert/Binary/C/Cached.pm tests/209_sourcify.t
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sat Apr 18 16:57:50 UTC 2009
Author: ryan52-guest
Date: Sat Apr 18 16:57:42 2009
New Revision: 33516
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33516
Log:
[svn-upgrade] Integrating new upstream version, libconvert-binary-c-perl (0.74)
Modified:
branches/upstream/libconvert-binary-c-perl/current/Changes
branches/upstream/libconvert-binary-c-perl/current/META.yml
branches/upstream/libconvert-binary-c-perl/current/bin/ccconfig
branches/upstream/libconvert-binary-c-perl/current/cbc/sourcify.c
branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C.pm
branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C/Cached.pm
branches/upstream/libconvert-binary-c-perl/current/tests/209_sourcify.t
Modified: branches/upstream/libconvert-binary-c-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/Changes?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/Changes (original)
+++ branches/upstream/libconvert-binary-c-perl/current/Changes Sat Apr 18 16:57:42 2009
@@ -1,3 +1,11 @@
+-------------------------
+Version 0.74 (2009-04-18)
+-------------------------
+
+* fix sourcification of flexible array members (triggered by cpan
+ #45105; thanks to Alexander Ost for being persistent in his
+ attempt to convince me that there's a bug in sourcify)
+
-------------------------
Version 0.73 (2009-03-16)
-------------------------
Modified: branches/upstream/libconvert-binary-c-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/META.yml?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/META.yml (original)
+++ branches/upstream/libconvert-binary-c-perl/current/META.yml Sat Apr 18 16:57:42 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Convert-Binary-C
-version: 0.73
+version: 0.74
abstract: Binary Data Conversion using C Types
author:
- Marcus Holland-Moritz <mhx at cpan.org>
Modified: branches/upstream/libconvert-binary-c-perl/current/bin/ccconfig
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/bin/ccconfig?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/bin/ccconfig (original)
+++ branches/upstream/libconvert-binary-c-perl/current/bin/ccconfig Sat Apr 18 16:57:42 2009
@@ -29,7 +29,7 @@
use strict;
my($NAME) = $0 =~ /([\w\.]+)$/;
-my $VERSION = ('$Snapshot: /Convert-Binary-C/0.73 $' =~ /([^\/\s]+)\s*\$$/)[0];
+my $VERSION = ('$Snapshot: /Convert-Binary-C/0.74 $' =~ /([^\/\s]+)\s*\$$/)[0];
my $MESSAGE = "\nThis is $NAME, v$VERSION ($0).\n";
my %OPT = (
'output-format' => 'dumper',
Modified: branches/upstream/libconvert-binary-c-perl/current/cbc/sourcify.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/cbc/sourcify.c?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/cbc/sourcify.c (original)
+++ branches/upstream/libconvert-binary-c-perl/current/cbc/sourcify.c Sat Apr 18 16:57:42 2009
@@ -10,8 +10,8 @@
*
* $Project: /Convert-Binary-C $
* $Author: mhx $
-* $Date: 2009/03/15 04:10:52 +0100 $
-* $Revision: 22 $
+* $Date: 2009/04/18 13:38:01 +0200 $
+* $Revision: 23 $
* $Source: /cbc/sourcify.c $
*
********************************************************************************
@@ -466,7 +466,12 @@
ListIterator ai;
LL_foreach(pValue, ai, pDecl->ext.array)
- sv_catpvf(s, "[%ld]", pValue->iv);
+ {
+ if (pValue->flags & V_IS_UNDEF)
+ sv_catpvn(s, "[]", 2);
+ else
+ sv_catpvf(s, "[%ld]", pValue->iv);
+ }
}
}
}
@@ -530,7 +535,12 @@
ListIterator ai;
LL_foreach(pValue, ai, pDecl->ext.array)
- sv_catpvf(str, "[%ld]", pValue->iv);
+ {
+ if (pValue->flags & V_IS_UNDEF)
+ sv_catpvn(str, "[]", 2);
+ else
+ sv_catpvf(str, "[%ld]", pValue->iv);
+ }
}
}
}
Modified: branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C.pm?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C.pm (original)
+++ branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C.pm Sat Apr 18 16:57:42 2009
@@ -31,7 +31,7 @@
@ISA = qw(DynaLoader);
-$VERSION = do { my @r = '$Snapshot: /Convert-Binary-C/0.73 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Convert-Binary-C/0.74 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C/Cached.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C/Cached.pm?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C/Cached.pm (original)
+++ branches/upstream/libconvert-binary-c-perl/current/lib/Convert/Binary/C/Cached.pm Sat Apr 18 16:57:42 2009
@@ -31,7 +31,7 @@
@ISA = qw(Convert::Binary::C);
-$VERSION = do { my @r = '$Snapshot: /Convert-Binary-C/0.73 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Convert-Binary-C/0.74 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$VERSION = eval $VERSION;
sub new
Modified: branches/upstream/libconvert-binary-c-perl/current/tests/209_sourcify.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconvert-binary-c-perl/current/tests/209_sourcify.t?rev=33516&op=diff
==============================================================================
--- branches/upstream/libconvert-binary-c-perl/current/tests/209_sourcify.t (original)
+++ branches/upstream/libconvert-binary-c-perl/current/tests/209_sourcify.t Sat Apr 18 16:57:42 2009
@@ -2,8 +2,8 @@
#
# $Project: /Convert-Binary-C $
# $Author: mhx $
-# $Date: 2009/03/15 04:11:00 +0100 $
-# $Revision: 23 $
+# $Date: 2009/04/18 13:37:07 +0200 $
+# $Revision: 24 $
# $Source: /tests/209_sourcify.t $
#
################################################################################
@@ -118,10 +118,14 @@
join( ',', sort $clone[$c]->$meth_names() ),
"parsed names differ in $meth_names ($c)" );
- ok( scalar grep $_, map {
- print "# checking \$clone[$c]->$meth( \"$_\" )\n";
- reccmp($orig->$meth($_), $clone[$c]->$meth($_))
- } @orig_names );
+ my @failed = map {
+ print "# checking \$clone[$c]->$meth( \"$_\" )\n";
+ reccmp($orig->$meth($_), $clone[$c]->$meth($_)) ? () : $_
+ } @orig_names;
+
+ print "# $_\n" for @failed;
+
+ ok(scalar @failed, 0, "$meth failed cloning");
}
}
@@ -167,7 +171,13 @@
{
my($ref, $val) = @_;
- ref $ref or return $ref eq $val;
+ unless (ref $ref) {
+ return 1 unless defined $ref || defined $val;
+ return 0 unless defined $ref && defined $val;
+ my $r = $ref eq $val;
+ print "# $ref ne $val\n" unless $r;
+ return $r;
+ }
if( ref $ref eq 'ARRAY' ) {
@$ref == @$val or return 0;
More information about the Pkg-perl-cvs-commits
mailing list