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