r30612 - in /trunk/libspreadsheet-parseexcel-perl/debian: changelog patches/70_warnings_64bit.patch patches/series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Feb 12 13:57:16 2009
New Revision: 30612

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30612
Log:
Fix "Character in 'c' format wrapped in pack in perl 5.10" by adding the
patch from CPAN RT#18063 as 70_warnings_64bit.patch (closes: #495790).

Added:
    trunk/libspreadsheet-parseexcel-perl/debian/patches/70_warnings_64bit.patch
Modified:
    trunk/libspreadsheet-parseexcel-perl/debian/changelog
    trunk/libspreadsheet-parseexcel-perl/debian/patches/series

Modified: trunk/libspreadsheet-parseexcel-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/changelog?rev=30612&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/changelog (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/changelog Thu Feb 12 13:57:16 2009
@@ -1,3 +1,10 @@
+libspreadsheet-parseexcel-perl (0.4900-2) UNRELEASED; urgency=low
+
+  * Fix "Character in 'c' format wrapped in pack in perl 5.10" by adding the
+    patch from CPAN RT#18063 as 70_warnings_64bit.patch (closes: #495790).
+
+ -- gregor herrmann <gregoa at debian.org>  Thu, 12 Feb 2009 14:49:16 +0100
+
 libspreadsheet-parseexcel-perl (0.4900-1) unstable; urgency=low
 
   * New upstream release.

Added: trunk/libspreadsheet-parseexcel-perl/debian/patches/70_warnings_64bit.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/patches/70_warnings_64bit.patch?rev=30612&op=file
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/patches/70_warnings_64bit.patch (added)
+++ trunk/libspreadsheet-parseexcel-perl/debian/patches/70_warnings_64bit.patch Thu Feb 12 13:57:16 2009
@@ -1,0 +1,20 @@
+Debian-Bug: #495790
+Upstream-Bug: CPAN#18063
+
+--- a/lib/Spreadsheet/ParseExcel.pm
++++ b/lib/Spreadsheet/ParseExcel.pm
+@@ -1781,12 +1781,12 @@
+ 
+         # http://rt.cpan.org/Ticket/Display.html?id=18063
+         my $u31 = unpack( "c", substr( $sWk, 3, 1 ) ) & 0xFC;
+-        $u31 |= 0xFFFFFF00
++        $u31 |= -256
+           if ( $u31 & 0x80 );    # raise neg bits for neg 1-byte value
+         substr( $sWk, 3, 1 ) &= pack( 'c', $u31 );
+ 
+         my $u01 = unpack( "c", substr( $lWk, 0, 1 ) ) & 0xFC;
+-        $u01 |= 0xFFFFFF00
++        $u01 |= -256
+           if ( $u01 & 0x80 );    # raise neg bits for neg 1-byte value
+         substr( $lWk, 0, 1 ) &= pack( 'c', $u01 );
+ 

Modified: trunk/libspreadsheet-parseexcel-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/patches/series?rev=30612&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/patches/series (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/patches/series Thu Feb 12 13:57:16 2009
@@ -1,3 +1,4 @@
 10objref.patch
 30rstring.patch
 60_this_is_not_a_manpage
+70_warnings_64bit.patch