r48850 - in /trunk/libspreadsheet-parseexcel-perl/debian/patches: 10objref.patch 30rstring.patch
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Dec 16 04:21:25 UTC 2009
Author: jawnsy-guest
Date: Wed Dec 16 04:21:20 2009
New Revision: 48850
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48850
Log:
update patch, it should build properly now...
Modified:
trunk/libspreadsheet-parseexcel-perl/debian/patches/10objref.patch
trunk/libspreadsheet-parseexcel-perl/debian/patches/30rstring.patch
Modified: trunk/libspreadsheet-parseexcel-perl/debian/patches/10objref.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/patches/10objref.patch?rev=48850&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/patches/10objref.patch (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/patches/10objref.patch Wed Dec 16 04:21:20 2009
@@ -16,8 +16,8 @@
}
+ elsif ( grep { $ref eq $_ } qw(IO::File IO::Handle IO::Wrap) ) {
+
-+ #1.4 Specified by IO::File/Handle/Wrap object
-+ $oBook->{File} = undef;
++ # Specified by IO::File/Handle/Wrap object
++ $workbook->{File} = undef;
+ my $sBuff = join( '', $source->getlines );
+ my ( $sBIFF, $iLen ) = $self->{GetContent}->( \$sBuff );
+ return $sBIFF ? ( $sBIFF, $iLen ) : (undef);
Modified: trunk/libspreadsheet-parseexcel-perl/debian/patches/30rstring.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/patches/30rstring.patch?rev=48850&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/patches/30rstring.patch (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/patches/30rstring.patch Wed Dec 16 04:21:20 2009
@@ -3,7 +3,7 @@
like 'STRING'. (#299870)
--- a/lib/Spreadsheet/ParseExcel.pm
+++ b/lib/Spreadsheet/ParseExcel.pm
-@@ -571,10 +571,23 @@
+@@ -579,10 +579,23 @@
my ( $oBook, $bOp, $bLen, $sWk ) = @_;
my ( $iR, $iC, $iF, $iL, $sTxt );
( $iR, $iC, $iF, $iL ) = unpack( "v4", $sWk );
@@ -30,7 +30,7 @@
_NewCell(
$oBook, $iR, $iC,
Kind => 'RString',
-@@ -582,9 +595,9 @@
+@@ -590,9 +603,9 @@
FormatNo => $iF,
Format => $oBook->{Format}[$iF],
Numeric => 0,
@@ -42,7 +42,7 @@
);
}
else {
-@@ -595,7 +608,7 @@
+@@ -603,7 +616,7 @@
FormatNo => $iF,
Format => $oBook->{Format}[$iF],
Numeric => 0,
More information about the Pkg-perl-cvs-commits
mailing list