r47813 - in /trunk/libole-storage-lite-perl: Changes META.yml debian/changelog debian/control debian/copyright debian/rules lib/OLE/Storage_Lite.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Nov 27 02:18:51 UTC 2009
Author: jawnsy-guest
Date: Fri Nov 27 02:18:46 2009
New Revision: 47813
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47813
Log:
* New upstream release
* Refresh copyright information
* Use new short debhelper rules format
* Standards-Version 3.8.3 (no changes)
* Add myself to Uploaders and Copyright
* Add perl to B-D-I, it's not build-essential
* Reformat the control description
Modified:
trunk/libole-storage-lite-perl/Changes
trunk/libole-storage-lite-perl/META.yml
trunk/libole-storage-lite-perl/debian/changelog
trunk/libole-storage-lite-perl/debian/control
trunk/libole-storage-lite-perl/debian/copyright
trunk/libole-storage-lite-perl/debian/rules
trunk/libole-storage-lite-perl/lib/OLE/Storage_Lite.pm
Modified: trunk/libole-storage-lite-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/Changes?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/Changes (original)
+++ trunk/libole-storage-lite-perl/Changes Fri Nov 27 02:18:46 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: trunk/libole-storage-lite-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/META.yml?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/META.yml (original)
+++ trunk/libole-storage-lite-perl/META.yml Fri Nov 27 02:18:46 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: trunk/libole-storage-lite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/debian/changelog?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/debian/changelog (original)
+++ trunk/libole-storage-lite-perl/debian/changelog Fri Nov 27 02:18:46 2009
@@ -1,8 +1,18 @@
-libole-storage-lite-perl (0.18-2) UNRELEASED; urgency=low
+libole-storage-lite-perl (0.19-1) UNRELEASED; urgency=low
+ [ Jonathan Yu ]
+ * New upstream release
+ * Refresh copyright information
+ * Use new short debhelper rules format
+ * Standards-Version 3.8.3 (no changes)
+ * Add myself to Uploaders and Copyright
+ * Add perl to B-D-I, it's not build-essential
+ * Reformat the control description
+
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:36:47 +0000
+ -- Jonathan Yu <jawnsy at cpan.org> Thu, 26 Nov 2009 17:55:54 -0500
libole-storage-lite-perl (0.18-1) unstable; urgency=low
Modified: trunk/libole-storage-lite-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/debian/control?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/debian/control (original)
+++ trunk/libole-storage-lite-perl/debian/control Fri Nov 27 02:18:46 2009
@@ -1,27 +1,26 @@
Source: libole-storage-lite-perl
Section: perl
Priority: optional
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: perl, libio-stringy-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Gunnar Wolf <gwolf at debian.org>,
- Damyan Ivanov <dmn at debian.org>,
+ Damyan Ivanov <dmn at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
gregor herrmann <gregoa at debian.org>
-Standards-Version: 3.8.0
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/OLE-Storage_Lite/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libole-storage-lite-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libole-storage-lite-perl/
-Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: libio-stringy-perl
Package: libole-storage-lite-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libio-stringy-perl
Description: simple class for OLE document interface
- OLE::Storage_Lite allows you to read and write an OLE-Structured file.
- .
- OLE (Object Linking and Embedding) is Microsoft's framework for a
- compound document technology which is used throughout the Office
- product family.
+ OLE::Storage_Lite is a Perl module that allows you to read and write an
+ OLE-Structured file. OLE (Object Linking and Embedding) is Microsoft's
+ framework for a compound document technology which is used throughout the
+ Office product family.
.
- This module provides the OLE functionality for the Spreadsheet::ParseExcel
- package (from the package libspreadsheet-parseexcel-perl) which can used
- to read data from Excel spreadsheets.
+ This module provides the OLE functionality for Spreadsheet::ParseExcel (see
+ libspreadsheet-parseexcel-perl) which can used to extract data from Excel
+ spreadsheets.
Modified: trunk/libole-storage-lite-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/debian/copyright?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/debian/copyright (original)
+++ trunk/libole-storage-lite-perl/debian/copyright Fri Nov 27 02:18:46 2009
@@ -1,30 +1,33 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: John McNamara jmcnamara at cpan.org
-Upstream-Source: http://search.cpan.org/dist/OLE-Storage_Lite/
-Upstream-Name: OLE-Storage_Lite
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Maintainer: Kawai Takanori <kwitknr at cpan.org>
+Source: http://search.cpan.org/dist/OLE-Storage_Lite/
+Name: OLE-Storage_Lite
Files: *
-Copyright: 2000-2001, Kawai Takanori kwitknr at cpan.org
-License-Alias: Perl
-License: GPL-1+ | Artistic
+Copyright: 2000-2001, Kawai Takanori <kwitknr at cpan.org>
+License: Artistic
Files: debian/*
-Copyright:
+Copyright:
+ 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2006-2009, gregor herrmann <gregoa at debian.org>
+ 2008, Damyan Ivanov <dmn at debian.org>
+ 2005, Gunnar Wolf <gwolf at debian.org>
2001-2004, Dirk Eddelbuettel <edd at debian.org>
- 2005-2009, various members of the Debian Perl Group, cf. debian/changelog
-License: GPL-1+ | Artistic
+License: GPL-1+ or Artistic
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
Modified: trunk/libole-storage-lite-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/debian/rules?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/debian/rules (original)
+++ trunk/libole-storage-lite-perl/debian/rules Fri Nov 27 02:18:46 2009
@@ -1,23 +1,4 @@
#!/usr/bin/make -f
-build: build-stamp
-build-stamp:
- dh build
- touch $@
-
-clean:
+%:
dh $@
-
-install: install-stamp
-install-stamp: build-stamp
- dh install
- touch $@
-
-binary-arch:
-
-binary-indep: install
- dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libole-storage-lite-perl/lib/OLE/Storage_Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libole-storage-lite-perl/lib/OLE/Storage_Lite.pm?rev=47813&op=diff
==============================================================================
--- trunk/libole-storage-lite-perl/lib/OLE/Storage_Lite.pm (original)
+++ trunk/libole-storage-lite-perl/lib/OLE/Storage_Lite.pm Fri Nov 27 02:18:46 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