r47811 - in /branches/upstream/libole-storage-lite-perl/current: Changes META.yml lib/OLE/Storage_Lite.pm

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Fri Nov 27 02:12:18 UTC 2009 

Author: jawnsy-guest
Date: Fri Nov 27 02:12:12 2009
New Revision: 47811

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47811
Log:
[svn-upgrade] Integrating new upstream version, libole-storage-lite-perl (0.19)

Modified:
    branches/upstream/libole-storage-lite-perl/current/Changes
    branches/upstream/libole-storage-lite-perl/current/META.yml
    branches/upstream/libole-storage-lite-perl/current/lib/OLE/Storage_Lite.pm

Modified: branches/upstream/libole-storage-lite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libole-storage-lite-perl/current/Changes?rev=47811&op=diff
==============================================================================
--- branches/upstream/libole-storage-lite-perl/current/Changes (original)
+++ branches/upstream/libole-storage-lite-perl/current/Changes Fri Nov 27 02:12:12 2009
@@ -1,12 +1,18 @@
 Revision history for Perl extension OLE::Storage_Lite.
 
+0.19  Tue Nov 24 2009
 
-0.18  Wed Dec 31  00:00:00 2008
-
-    - Fixed internal version numbers.
+    ! Fixed bug where the OLE header wasn't been written correctly
+      for files < 7MB. This was causing Spreadsheet::WriteExcel
+      problems in Windows 7.
 
 
-0.17  Tue May 10  00:00:00 2008
+0.18  Wed Dec 31 2008
+
+    ! Fixed internal version numbers.
+
+
+0.17  Tue May 10 2008
 
     - Rewrote internal date handling functions to avoid
       Math::BigInt due to further problems introduced by the
@@ -15,7 +21,7 @@
       Reported by Andrew Benham.
 
 
-0.16  Tue Feb 19  23:00:00 2008
+0.16  Tue Feb 19 2008
 
     - Workaround for HP-UX Perl 5.6 integer bug.
       Thanks Bob Rose.
@@ -25,7 +31,7 @@
       http://rt.cpan.org/Public/Bug/Display.html?id=32603
 
 
-0.15  Sat Dec 1  18:00:00 2007
+0.15  Sat Dec 1 2007
 
     - Fix for OLE::Storage_Lite performance degradation caused
       by Math::BigInt degradation.
@@ -33,7 +39,7 @@
       Thanks Jonathan Kamens.
 
 
-0.14  Mon Nov 8  14:00:00 2004
+0.14  Mon Nov 8 2004
 
     - Return filehandle close() value to caller. Spotted in
       Spreadsheet::WriteExcel::Big by Edward James and
@@ -44,13 +50,13 @@
       for some reason. :-)
 
 
-0.13  Sun Aug 1  13:00:00 2004
+0.13  Sun Aug 1 2004
 
     - Allowed use of user defined filehandles. This should make the
       module work with mod_perl and some other applications.
       https://rt.cpan.org/NoAuth/Bug.html?id=7168
 
-0.12  Thu May 28  23:00:00 2004
+0.12  Thu May 28 2004
 
     - Applied patch to fix problems when creating very large files.
       Thanks James Rouzier.

Modified: branches/upstream/libole-storage-lite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libole-storage-lite-perl/current/META.yml?rev=47811&op=diff
==============================================================================
--- branches/upstream/libole-storage-lite-perl/current/META.yml (original)
+++ branches/upstream/libole-storage-lite-perl/current/META.yml Fri Nov 27 02:12:12 2009
@@ -1,13 +1,21 @@
 --- #YAML:1.0
-name:                OLE-Storage_Lite
-version:             0.18
-abstract:            Read and write OLE storage files.
-license:             ~
-author:              
+name:               OLE-Storage_Lite
+version:            0.19
+abstract:           Read and write OLE storage files.
+author:
     - Kawai Takanori (kwitknr at cpan.org)
-generated_by:        ExtUtils::MakeMaker version 6.44
-distribution_type:   module
-requires:     
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.54
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libole-storage-lite-perl/current/lib/OLE/Storage_Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libole-storage-lite-perl/current/lib/OLE/Storage_Lite.pm?rev=47811&op=diff
==============================================================================
--- branches/upstream/libole-storage-lite-perl/current/lib/OLE/Storage_Lite.pm (original)
+++ branches/upstream/libole-storage-lite-perl/current/lib/OLE/Storage_Lite.pm Fri Nov 27 02:12:12 2009
@@ -12,7 +12,7 @@
 use strict;
 use vars qw($VERSION @ISA);
 @ISA = qw(Exporter);
-$VERSION = '0.18';
+$VERSION = '0.19';
 
 #------------------------------------------------------------------------------
 # new (OLE::Storage_Lite::PPS)
@@ -171,7 +171,7 @@
 use Fcntl;
 use vars qw($VERSION @ISA);
 @ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.18';
+$VERSION = '0.19';
 sub _savePpsSetPnt($$$);
 sub _savePpsSetPnt2($$$);
 #------------------------------------------------------------------------------
@@ -342,23 +342,25 @@
   my $iAll = $iBBcnt + $iPPScnt + $iSBDcnt;
   my $iAllW = $iAll;
   my $iBdCntW = int($iAllW / $iBlCnt) + (($iAllW % $iBlCnt)? 1: 0);
-  my $iBdCnt = 0;
+  my $iBdCnt = int(($iAll + $iBdCntW) / $iBlCnt) + ((($iAllW+$iBdCntW) % $iBlCnt)? 1: 0);
   my $i;
-#0.1 Calculate BD count
-  $iBlCnt--; #the BlCnt is reduced in the count of the last sect is used for a pointer the next Bl
-  my $iBBleftover = $iAll - $i1stBdMax;
-  if ($iAll >$i1stBdMax) {
-
-    while(1) {
-      $iBdCnt = int(($iBBleftover) / $iBlCnt) + ((($iBBleftover) % $iBlCnt)? 1: 0);
-      $iBdExL = int(($iBdCnt) / $iBlCnt) + ((($iBdCnt) % $iBlCnt)? 1: 0);
-      $iBBleftover = $iBBleftover + $iBdExL;
-      last if($iBdCnt == (int(($iBBleftover) / $iBlCnt) + ((($iBBleftover) % $iBlCnt)? 1: 0)));
-    }
-  }
-  $iBdCnt += $i1stBdL;
-  #print "iBdCnt = $iBdCnt \n";
-
+
+  if ($iBdCnt > $i1stBdL) {
+    #0.1 Calculate BD count
+    $iBlCnt--; #the BlCnt is reduced in the count of the last sect is used for a pointer the next Bl
+    my $iBBleftover = $iAll - $i1stBdMax;
+
+    if ($iAll >$i1stBdMax) {
+      while(1) {
+        $iBdCnt = int(($iBBleftover) / $iBlCnt) + ((($iBBleftover) % $iBlCnt)? 1: 0);
+        $iBdExL = int(($iBdCnt) / $iBlCnt) + ((($iBdCnt) % $iBlCnt)? 1: 0);
+        $iBBleftover = $iBBleftover + $iBdExL;
+        last if($iBdCnt == (int(($iBBleftover) / $iBlCnt) + ((($iBBleftover) % $iBlCnt)? 1: 0)));
+      }
+    }
+    $iBdCnt += $i1stBdL;
+    #print "iBdCnt = $iBdCnt \n";
+  }
 #1.Save Header
   print {$FILE} (
             "\xD0\xCF\x11\xE0\xA1\xB1\x1A\xE1"
@@ -374,8 +376,8 @@
             , pack("V", $iBBcnt+$iSBDcnt), #ROOT START
             , pack("V", 0)
             , pack("V", 0x1000)
-            , pack("V", 0)                  #Small Block Depot
-            , pack("V", 1)
+            , pack("V", $iSBDcnt ? 0 : -2)                  #Small Block Depot
+            , pack("V", $iSBDcnt)
     );
 #2. Extra BDList Start, Count
   if($iAll <= $i1stBdMax) {
@@ -711,7 +713,7 @@
 use strict;
 use vars qw($VERSION @ISA);
 @ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.18';
+$VERSION = '0.19';
 #------------------------------------------------------------------------------
 # new (OLE::Storage_Lite::PPS::File)
 #------------------------------------------------------------------------------
@@ -799,7 +801,7 @@
 use strict;
 use vars qw($VERSION @ISA);
 @ISA = qw(OLE::Storage_Lite::PPS Exporter);
-$VERSION = '0.18';
+$VERSION = '0.19';
 sub new ($$;$$$) {
     my($sClass, $sName, $raTime1st, $raTime2nd, $raChild) = @_;
     OLE::Storage_Lite::PPS::_new(
@@ -829,7 +831,7 @@
 
 use vars qw($VERSION @ISA @EXPORT);
 @ISA = qw(Exporter);
-$VERSION = '0.18';
+$VERSION = '0.19';
 sub _getPpsSearch($$$$$;$);
 sub _getPpsTree($$$;$);
 #------------------------------------------------------------------------------

More information about the Pkg-perl-cvs-commits mailing list