commit perl-Spreadsheet-XLSX for openSUSE:Factory
Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Spreadsheet-XLSX for openSUSE:Factory checked in at 2021-11-03 17:26:15 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Spreadsheet-XLSX (Old) and /work/SRC/openSUSE:Factory/.perl-Spreadsheet-XLSX.new.1890 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Spreadsheet-XLSX" Wed Nov 3 17:26:15 2021 rev:10 rq:928937 version:0.16 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Spreadsheet-XLSX/perl-Spreadsheet-XLSX.changes 2015-11-08 11:26:26.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Spreadsheet-XLSX.new.1890/perl-Spreadsheet-XLSX.changes 2021-11-03 17:27:06.761365010 +0100 @@ -1,0 +2,13 @@ +Tue Oct 26 03:06:40 UTC 2021 - Tina M��ller <timueller+perl@suse.de> + +- updated to 0.16 + see /usr/share/doc/packages/perl-Spreadsheet-XLSX/Changes + + 0.16 + + - added GitHub repository + - fix RT #125112: Update module name in comments and POD + - improve POD + - improve kwalitee test + +------------------------------------------------------------------- Old: ---- Spreadsheet-XLSX-0.15.tar.gz New: ---- Spreadsheet-XLSX-0.16.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Spreadsheet-XLSX.spec ++++++ --- /var/tmp/diff_new_pack.WD9uWt/_old 2021-11-03 17:27:07.109365200 +0100 +++ /var/tmp/diff_new_pack.WD9uWt/_new 2021-11-03 17:27:07.109365200 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Spreadsheet-XLSX # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,22 +12,20 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # +%define cpan_name Spreadsheet-XLSX Name: perl-Spreadsheet-XLSX -Version: 0.15 +Version: 0.16 Release: 0 -%define cpan_name Spreadsheet-XLSX Summary: Perl extension for reading MS Excel 2007 files; -License: Artistic-1.0 or GPL-1.0+ -Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/Spreadsheet-XLSX/ -Source0: http://www.cpan.org/authors/id/M/MI/MIKEB/%{cpan_name}-%{version}.tar.gz +License: Artistic-1.0 OR GPL-1.0-or-later +URL: https://metacpan.org/release/%{cpan_name} +Source0: https://cpan.metacpan.org/authors/id/A/AS/ASB/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Archive::Zip) >= 1.18 @@ -45,15 +43,14 @@ for interoperability; including Workbook, Worksheet, and Cell. %prep -%setup -q -n %{cpan_name}-%{version} -find . -type f -print0 | xargs -0 chmod 644 +%autosetup -n %{cpan_name}-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor +%make_build %check -%{__make} test +make test %install %perl_make_install @@ -61,7 +58,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc Changes README %changelog ++++++ Spreadsheet-XLSX-0.15.tar.gz -> Spreadsheet-XLSX-0.16.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/Changes new/Spreadsheet-XLSX-0.16/Changes --- old/Spreadsheet-XLSX-0.15/Changes 2015-10-31 13:54:59.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/Changes 2021-10-25 20:56:05.000000000 +0200 @@ -1,5 +1,12 @@ Revision history for Perl extension Spreadsheet::XLSX. +0.16 + + - added GitHub repository + - fix RT #125112: Update module name in comments and POD + - improve POD + - improve kwalitee test + 0.15 - revert a numeric formatting change which caused isssues with Spreadsheet::Read. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/META.json new/Spreadsheet-XLSX-0.16/META.json --- old/Spreadsheet-XLSX-0.15/META.json 2015-10-31 13:55:39.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/META.json 2021-10-25 20:57:11.000000000 +0200 @@ -5,13 +5,13 @@ "Mike Blackwell <mike.blackwell@rrd.com" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001", + "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "Spreadsheet-XLSX", "no_index" : { @@ -40,5 +40,11 @@ } }, "release_status" : "stable", - "version" : "0.15" + "resources" : { + "repository" : { + "url" : "https://github.com/asb-capfan/Spreadsheet-XLSX" + } + }, + "version" : "0.16", + "x_serialization_backend" : "JSON::PP version 4.04" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/META.yml new/Spreadsheet-XLSX-0.16/META.yml --- old/Spreadsheet-XLSX-0.15/META.yml 2015-10-31 13:55:39.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/META.yml 2021-10-25 20:57:10.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001' +generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -22,4 +22,7 @@ Archive::Zip: '1.18' Spreadsheet::ParseExcel: '0' Test::NoWarnings: '0' -version: '0.15' +resources: + repository: https://github.com/asb-capfan/Spreadsheet-XLSX +version: '0.16' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/Makefile.PL new/Spreadsheet-XLSX-0.16/Makefile.PL --- old/Spreadsheet-XLSX-0.15/Makefile.PL 2015-10-30 17:11:58.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/Makefile.PL 2021-10-23 12:36:27.000000000 +0200 @@ -5,13 +5,17 @@ WriteMakefile( NAME => 'Spreadsheet::XLSX', VERSION_FROM => 'lib/Spreadsheet/XLSX.pm', # finds $VERSION + ABSTRACT_FROM => 'lib/Spreadsheet/XLSX.pm', # retrieve abstract from module + AUTHOR => ['Dmitry Ovsyanko <do@eludia.ru>', 'Mike Blackwell <mike.blackwell@rrd.com'], LICENSE => 'perl_5', PREREQ_PM => { - 'Archive::Zip' => 1.18, - 'Spreadsheet::ParseExcel' => 0, - 'Test::NoWarnings' => 0, - }, - ($] >= 5.005 ? ## Add these new keywords supported since 5.005 - (ABSTRACT_FROM => 'lib/Spreadsheet/XLSX.pm', # retrieve abstract from module - AUTHOR => ['Dmitry Ovsyanko <do@eludia.ru>','Mike Blackwell <mike.blackwell@rrd.com']) : ()), + 'Archive::Zip' => 1.18, + 'Spreadsheet::ParseExcel' => 0, + 'Test::NoWarnings' => 0, + }, + META_MERGE => { + resources => { + repository => 'https://github.com/asb-capfan/Spreadsheet-XLSX', + }, + }, ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX/Fmt2007.pm new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX/Fmt2007.pm --- old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX/Fmt2007.pm 2015-10-28 21:37:16.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX/Fmt2007.pm 2021-10-25 20:55:34.000000000 +0200 @@ -8,7 +8,7 @@ use warnings; use Spreadsheet::XLSX::Utility2007 qw(ExcelFmt); -our $VERSION = '0.13'; # +our $VERSION = '0.16'; # my %hFmtDefault = ( 0x00 => '@', @@ -52,7 +52,7 @@ ); #------------------------------------------------------------------------------ -# new (for Spreadsheet::XLSX::FmtDefault) +# new (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub new { my ($sPkg, %hKey) = @_; @@ -62,7 +62,7 @@ } #------------------------------------------------------------------------------ -# TextFmt (for Spreadsheet::XLSX::FmtDefault) +# TextFmt (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub TextFmt { my ($oThis, $sTxt, $sCode) = @_; @@ -71,7 +71,7 @@ } #------------------------------------------------------------------------------ -# FmtStringDef (for Spreadsheet::XLSX::FmtDefault) +# FmtStringDef (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub FmtStringDef { my ($oThis, $iFmtIdx, $oBook, $rhFmt) = @_; @@ -85,7 +85,7 @@ } #------------------------------------------------------------------------------ -# FmtString (for Spreadsheet::XLSX::FmtDefault) +# FmtString (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub FmtString { my ($oThis, $oCell, $oBook) = @_; @@ -119,7 +119,7 @@ } #------------------------------------------------------------------------------ -# ValFmt (for Spreadsheet::XLSX::FmtDefault) +# ValFmt (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub ValFmt { my ($oThis, $oCell, $oBook) = @_; @@ -137,7 +137,7 @@ } #------------------------------------------------------------------------------ -# ChkType (for Spreadsheet::XLSX::FmtDefault) +# ChkType (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub ChkType { my ($oPkg, $iNumeric, $iFmtIdx) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX/Utility2007.pm new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX/Utility2007.pm --- old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX/Utility2007.pm 2015-04-22 23:43:34.000000000 +0200 +++ new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX/Utility2007.pm 2021-10-25 20:56:16.000000000 +0200 @@ -3,7 +3,7 @@ # by Kawai, Takanori (Hippo2000) 2001.2.2 # This Program is ALPHA version. #============================================================================== -# Spreadsheet::XLSX::Utility; +# Spreadsheet::XLSX::Utility2007; #============================================================================== package Spreadsheet::XLSX::Utility2007; use strict; @@ -13,7 +13,7 @@ use vars qw(@ISA @EXPORT_OK); @ISA = qw(Exporter); @EXPORT_OK = qw(ExcelFmt LocaltimeExcel ExcelLocaltime col2int int2col sheetRef xls2csv); -our $VERSION = '0.13'; +our $VERSION = '0.16'; my $sNUMEXP = '(^[+-]?\d+(\.\d+)?$)|(^[+-]?\d+\.?(\d*)[eE][+-](\d+))$'; @@ -548,7 +548,7 @@ } #------------------------------------------------------------------------------ -# AddComma (for Spreadsheet::XLSX::Utility) +# AddComma (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub AddComma { my ($sNum) = @_; @@ -565,7 +565,7 @@ } #------------------------------------------------------------------------------ -# MakeBun (for Spreadsheet::XLSX::Utility) +# MakeBun (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub MakeBun { my ($sFmt, $iData, $iFlg) = @_; @@ -610,7 +610,7 @@ } #------------------------------------------------------------------------------ -# MakeE (for Spreadsheet::XLSX::Utility) +# MakeE (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub MakeE { my ($sFmt, $iData) = @_; @@ -629,7 +629,7 @@ } #------------------------------------------------------------------------------ -# LeapYear (for Spreadsheet::XLSX::Utility) +# LeapYear (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub LeapYear { my ($iYear) = @_; @@ -638,7 +638,7 @@ } #------------------------------------------------------------------------------ -# LocaltimeExcel (for Spreadsheet::XLSX::Utility) +# LocaltimeExcel (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub LocaltimeExcel { my ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iMSec, $flg1904) = @_; @@ -693,7 +693,7 @@ } #------------------------------------------------------------------------------ -# ExcelLocaltime (for Spreadsheet::XLSX::Utility) +# ExcelLocaltime (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ sub ExcelLocaltime { my ($dObj, $flg1904) = @_; @@ -759,7 +759,7 @@ } # ----------------------------------------------------------------------------- -# col2int (for Spreadsheet::XLSX::Utility) +# col2int (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ # converts a excel row letter into an int for use in an array sub col2int { @@ -782,7 +782,7 @@ } # ----------------------------------------------------------------------------- -# int2col (for Spreadsheet::XLSX::Utility) +# int2col (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ ### int2col # convert a column number into column letters @@ -804,7 +804,7 @@ } # ----------------------------------------------------------------------------- -# sheetRef (for Spreadsheet::XLSX::Utility) +# sheetRef (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ # ----------------------------------------------------------------------------- ### sheetRef @@ -830,7 +830,7 @@ } # ----------------------------------------------------------------------------- -# xls2csv (for Spreadsheet::XLSX::Utility) +# xls2csv (for Spreadsheet::XLSX::Utility2007) #------------------------------------------------------------------------------ ### xls2csv # convert a chunk of an excel file into csv text chunk @@ -971,7 +971,7 @@ use strict; #Declare - use Spreadsheet::XLSX::Utility qw(ExcelFmt ExcelLocaltime LocaltimeExcel); + use Spreadsheet::XLSX::Utility2007 qw(ExcelFmt ExcelLocaltime LocaltimeExcel); #Convert localtime ->Excel Time my $iBirth = LocaltimeExcel(11, 10, 12, 23, 2, 64); @@ -992,7 +992,7 @@ =head1 DESCRIPTION -Spreadsheet::XLSX::Utility exports utility functions concerned with Excel format setting. +Spreadsheet::XLSX::Utility2007 exports utility functions concerned with Excel format setting. ExcelFmt is used by Spreadsheet::XLSX::Fmt2007.pm which is used by Spreadsheet::XLSX. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX.pm new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX.pm --- old/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX.pm 2015-10-31 03:33:19.000000000 +0100 +++ new/Spreadsheet-XLSX-0.16/lib/Spreadsheet/XLSX.pm 2021-10-25 20:55:49.000000000 +0200 @@ -6,7 +6,7 @@ use base 'Spreadsheet::ParseExcel::Workbook'; -our $VERSION = '0.15'; +our $VERSION = '0.16'; use Archive::Zip; use Spreadsheet::ParseExcel; @@ -292,97 +292,92 @@ =head1 SYNOPSIS - use Text::Iconv; - my $converter = Text::Iconv -> new ("utf-8", "windows-1251"); - - # Text::Iconv is not really required. - # This can be any object with the convert method. Or nothing. - - use Spreadsheet::XLSX; - - my $excel = Spreadsheet::XLSX -> new ('test.xlsx', $converter); - - foreach my $sheet (@{$excel -> {Worksheet}}) { - - printf("Sheet: %s\n", $sheet->{Name}); - - $sheet -> {MaxRow} ||= $sheet -> {MinRow}; - - foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) { - - $sheet -> {MaxCol} ||= $sheet -> {MinCol}; - - foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) { - - my $cell = $sheet -> {Cells} [$row] [$col]; - - if ($cell) { - printf("( %s , %s ) => %s\n", $row, $col, $cell -> {Val}); - } - - } - - } - - } + use Text::Iconv; + my $converter = Text::Iconv->new("utf-8", "windows-1251"); + + # Text::Iconv is not really required. + # This can be any object with the convert method. Or nothing. + + use Spreadsheet::XLSX; + + my $excel = Spreadsheet::XLSX->new('test.xlsx', $converter); + + foreach my $sheet (@{$excel->{Worksheet}}) { + + printf("Sheet: %s\n", $sheet->{Name}); + + $sheet->{MaxRow} ||= $sheet->{MinRow}; + + foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) { + + $sheet->{MaxCol} ||= $sheet->{MinCol}; + + foreach my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) { + + my $cell = $sheet->{Cells}[$row][$col]; + + if ($cell) { + printf("( %s , %s ) => %s\n", $row, $col, $cell->{Val}); + } + + } + + } + + } =head1 DESCRIPTION -This module is a (quick and dirty) emulation of Spreadsheet::ParseExcel for +This module is a (quick and dirty) emulation of L<Spreadsheet::ParseExcel> for Excel 2007 (.xlsx) file format. It supports styles and many of Excel's quirks, -but not all. It populates the classes from Spreadsheet::ParseExcel for interoperability; +but not all. It populates the classes from L<Spreadsheet::ParseExcel> for interoperability; including Workbook, Worksheet, and Cell. =head1 SEE ALSO =over 2 -=item Text::CSV_XS, Text::CSV_PP - -http://search.cpan.org/~hmbrand/ - -A pure perl version is available on http://search.cpan.org/~makamaka/ +=item L<Spreadsheet::ParseXLSX> -=item Spreadsheet::ParseExcel +This module has some serious issues with the way it uses regexs for parsing the XML. +I would strongly encourage switching to L<Spreadsheet::ParseXLSX> which takes a more reliable approach. -http://search.cpan.org/~kwitknr/ +=item L<Text::CSV_XS>, L<Text::CSV_PP> -=item Spreadsheet::ReadSXC +=item L<Spreadsheet::ParseExcel> -http://search.cpan.org/~terhechte/ +=item L<Spreadsheet::ReadSXC> -=item Spreadsheet::BasicRead +=item L<Spreadsheet::BasicRead> -http://search.cpan.org/~gng/ for xlscat likewise functionality (Excel only) +for xlscat likewise functionality (Excel only) =item Spreadsheet::ConvertAA -http://search.cpan.org/~nkh/ for an alternative set of cell2cr () / -cr2cell () pair +for an alternative set of C<cell2cr()> / C<cr2cell()> pair -=item Spreadsheet::Perl +=item L<Spreadsheet::Perl> -http://search.cpan.org/~nkh/ offers a Pure Perl implementation of a +offers a Pure Perl implementation of a spreadsheet engine. Users that want this format to be supported in -Spreadsheet::Read are hereby motivated to offer patches. It's not high +L<Spreadsheet::Read> are hereby motivated to offer patches. It's not high on my todo-list. =item xls2csv -http://search.cpan.org/~ken/ offers an alternative for my C<xlscat -c>, +L<https://metacpan.org/release/KEN/xls2csv-1.07> offers an alternative for my C<xlscat -c>, in the xls2csv tool, but this tool focusses on character encoding transparency, and requires some other modules. -=item Spreadsheet::Read +=item L<Spreadsheet::Read> -http://search.cpan.org/~hmbrand/ read the data from a spreadsheet (interface -module) +read the data from a spreadsheet (interface module) =back =head1 AUTHOR -Dmitry Ovsyanko, E<lt>do@eludia.ru<gt>, http://eludia.ru/wiki/ +Dmitry Ovsyanko, E<lt>do@eludia.ruE<gt>, http://eludia.ru/wiki/ Patches by: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Spreadsheet-XLSX-0.15/t/kwalitee.t new/Spreadsheet-XLSX-0.16/t/kwalitee.t --- old/Spreadsheet-XLSX-0.15/t/kwalitee.t 2015-04-23 01:28:09.000000000 +0200 +++ new/Spreadsheet-XLSX-0.16/t/kwalitee.t 2021-10-22 19:34:31.000000000 +0200 @@ -3,7 +3,9 @@ plan skip_all => 'these tests are for release candidate testing' unless $ENV{RELEASE_TESTING}; } + +eval { require Test::Kwalitee; Test::Kwalitee->import('kwalitee_ok'); }; +plan( skip_all => "Test::Kwalitee not installed: $@; skipping") if $@; -use Test::Kwalitee 'kwalitee_ok'; kwalitee_ok(); done_testing;
participants (1)
-
Source-Sync