Hello community,
here is the log from the commit of package perl-HTML-TableExtract for
openSUSE:Factory checked in at 2020-05-04 22:01:35
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTML-TableExtract (Old)
and /work/SRC/openSUSE:Factory/.perl-HTML-TableExtract.new.2738 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTML-TableExtract"
Mon May 4 22:01:35 2020 rev:22 rq:800148 version:2.15
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-HTML-TableExtract/perl-HTML-TableExtract.changes
2015-06-11 08:23:00.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-HTML-TableExtract.new.2738/perl-HTML-TableExtract.changes
2020-05-04 22:01:41.390635472 +0200
@@ -1,0 +2,12 @@
+Mon May 4 18:01:42 UTC 2020 - Pedro Monreal Gonzalez
<[email protected]>
+
+- Fix build: Test 30_tree.t fails
+- Add patch perl-HTML-TableExtract-test-30_tree.patch
+
+-------------------------------------------------------------------
+Wed Apr 3 07:01:08 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 2.15
+ see /usr/share/doc/packages/perl-HTML-TableExtract/Changes
+
+-------------------------------------------------------------------
Old:
----
HTML-TableExtract-2.13.tar.gz
New:
----
HTML-TableExtract-2.15.tar.gz
perl-HTML-TableExtract-test-30_tree.patch
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTML-TableExtract.spec ++++++
--- /var/tmp/diff_new_pack.ypA4W9/_old 2020-05-04 22:01:42.574638090 +0200
+++ /var/tmp/diff_new_pack.ypA4W9/_new 2020-05-04 22:01:42.578638099 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-HTML-TableExtract
#
-# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,20 +12,23 @@
# 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/
#
Name: perl-HTML-TableExtract
-Version: 2.13
+Version: 2.15
Release: 0
%define cpan_name HTML-TableExtract
Summary: Perl module for extracting the content contained in tables
within an HTM[cut]
-License: GPL-1.0+ or Artistic-1.0
+License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/HTML-TableExtract/
-Source0:
http://www.cpan.org/authors/id/M/MS/MSISK/%{cpan_name}-%{version}.tar.gz
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/M/MS/MSISK/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
+# MANUAL BEGIN
+Patch0: perl-HTML-TableExtract-test-30_tree.patch
+# MANUAL END
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -96,14 +99,15 @@
%prep
%setup -q -n %{cpan_name}-%{version}
-find . -type f -print0 | xargs -0 chmod 644
+%patch0 -p1
+find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -112,6 +116,7 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes examples.html LICENSE README
+%doc Changes examples.html README
+%license LICENSE
%changelog
++++++ HTML-TableExtract-2.13.tar.gz -> HTML-TableExtract-2.15.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-TableExtract-2.13/Changes
new/HTML-TableExtract-2.15/Changes
--- old/HTML-TableExtract-2.13/Changes 2015-05-21 18:22:09.000000000 +0200
+++ new/HTML-TableExtract-2.15/Changes 2017-05-25 15:43:24.000000000 +0200
@@ -1,6 +1,12 @@
Revision history for HTML::TableExtract
-2.14 Thu May 21 12:20:46 EDT 2015
+2.15 Thu May 25 09:42:59 EDT 2017
+ - documentation fixes
+
+2.14 Thu May 25 09:03:05 EDT 2017
+ - purge trees on re-parse when in tree mode
+
+2.13 Thu May 21 12:20:46 EDT 2015
- bundled examples html page
2.12 Fri Jan 9 11:29:08 EST 2015
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-TableExtract-2.13/META.json
new/HTML-TableExtract-2.15/META.json
--- old/HTML-TableExtract-2.13/META.json 2015-05-21 18:23:15.000000000
+0200
+++ new/HTML-TableExtract-2.15/META.json 2017-05-25 15:48:00.000000000
+0200
@@ -38,5 +38,5 @@
}
},
"release_status" : "stable",
- "version" : "2.13"
+ "version" : "2.15"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-TableExtract-2.13/META.yml
new/HTML-TableExtract-2.15/META.yml
--- old/HTML-TableExtract-2.13/META.yml 2015-05-21 18:23:15.000000000 +0200
+++ new/HTML-TableExtract-2.15/META.yml 2017-05-25 15:48:00.000000000 +0200
@@ -20,4 +20,4 @@
requires:
HTML::ElementTable: 1.16
HTML::Parser: 0
-version: 2.13
+version: 2.15
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-TableExtract-2.13/README
new/HTML-TableExtract-2.15/README
--- old/HTML-TableExtract-2.13/README 2015-05-21 18:19:43.000000000 +0200
+++ new/HTML-TableExtract-2.15/README 2017-05-25 15:26:13.000000000 +0200
@@ -54,6 +54,6 @@
COPYRIGHT
-Copyright (c) 1999-2015 Matthew P. Sisk. All rights reserved. All wrongs
+Copyright (c) 1999-2017 Matthew P. Sisk. All rights reserved. All wrongs
revenged. This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTML-TableExtract-2.13/lib/HTML/TableExtract.pm
new/HTML-TableExtract-2.15/lib/HTML/TableExtract.pm
--- old/HTML-TableExtract-2.13/lib/HTML/TableExtract.pm 2015-05-21
18:22:21.000000000 +0200
+++ new/HTML-TableExtract-2.15/lib/HTML/TableExtract.pm 2017-05-25
15:44:03.000000000 +0200
@@ -12,7 +12,7 @@
use vars qw($VERSION @ISA);
-$VERSION = '2.13';
+$VERSION = '2.15';
use HTML::Parser;
@ISA = qw(HTML::Parser);
@@ -438,6 +438,7 @@
$self->{_counts} = [];
$self->{_in_a_table} = 0;
$self->{_parsing} = 0;
+ $self->tree->delete_content() if TREE();
}
sub _emsg {
@@ -1278,20 +1279,20 @@
# you specified the headers since 'automap' is enabled by default.
use HTML::TableExtract;
- $te = HTML::TableExtract->new( headers => [qw(Date Price Cost)] );
+ my $te = HTML::TableExtract->new( headers => [qw(Date Price Cost)] );
$te->parse($html_string);
# Examine all matching tables
- foreach $ts ($te->tables) {
+ foreach my $ts ($te->tables) {
print "Table (", join(',', $ts->coords), "):\n";
- foreach $row ($ts->rows) {
+ foreach my $row ($ts->rows) {
print join(',', @$row), "\n";
}
}
# Shorthand...top level rows() method assumes the first table found in
# the document if no arguments are supplied.
- foreach $row ($te->rows) {
+ foreach my $row ($te->rows) {
print join(',', @$row), "\n";
}
@@ -1303,11 +1304,11 @@
# level HTML document). In addition, it must be the third (count 2)
# such instance of a table at that depth.
- $te = HTML::TableExtract->new( depth => 2, count => 2 );
+ my $te = HTML::TableExtract->new( depth => 2, count => 2 );
$te->parse_file($html_file);
- foreach $ts ($te->tables) {
+ foreach my $ts ($te->tables) {
print "Table found at ", join(',', $ts->coords), ":\n";
- foreach $row ($ts->rows) {
+ foreach my $row ($ts->rows) {
print " ", join(',', @$row), "\n";
}
}
@@ -1316,11 +1317,11 @@
# If multiple attributes are specified, all must be present and equal
# for match to occur.
- $te = HTML::TableExtract->new( attribs => { border => 1 } );
+ my $te = HTML::TableExtract->new( attribs => { border => 1 } );
$te->parse($html_string);
- foreach $ts ($te->tables) {
+ foreach my $ts ($te->tables) {
print "Table with border=1 found at ", join(',', $ts->coords), ":\n";
- foreach $row ($ts->rows) {
+ foreach my $row ($ts->rows) {
print " ", join(',', @$row), "\n";
}
}
@@ -1333,15 +1334,15 @@
# be edited in-place.
use HTML::TableExtract qw(tree);
- $te = HTML::TableExtract->new( headers => qw(Fee Fie Foe Fum) );
+ my $te = HTML::TableExtract->new( headers => qw(Fee Fie Foe Fum) );
$te->parse_file($html_file);
- $table = $te->first_table_found;
- $table_tree = $table->tree;
+ my $table = $te->first_table_found;
+ my $table_tree = $table->tree;
$table_tree->cell(4,4)->replace_content('Golden Goose');
- $table_html = $table_tree->as_HTML;
- $table_text = $table_tree->as_text;
- $document_tree = $te->tree;
- $document_html = $document_tree->as_HTML;
+ my $table_html = $table_tree->as_HTML;
+ my $table_text = $table_tree->as_text;
+ my $document_tree = $te->tree;
+ my $document_html = $document_tree->as_HTML;
=head1 DESCRIPTION
@@ -1820,7 +1821,7 @@
=head1 COPYRIGHT
-Copyright (c) 2000-2015 Matthew P. Sisk.
+Copyright (c) 2000-2017 Matthew P. Sisk.
All rights reserved. All wrongs revenged. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.
++++++ cpanspec.yml ++++++
--- /var/tmp/diff_new_pack.ypA4W9/_old 2020-05-04 22:01:42.722638418 +0200
+++ /var/tmp/diff_new_pack.ypA4W9/_new 2020-05-04 22:01:42.722638418 +0200
@@ -4,7 +4,8 @@
#sources:
# - source1
# - source2
-#patches:
+patches:
+ perl-HTML-TableExtract-test-30_tree.patch: -p1
# foo.patch: -p1
# bar.patch:
#preamble: |-
++++++ perl-HTML-TableExtract-test-30_tree.patch ++++++
Index: HTML-TableExtract-2.15/lib/HTML/TableExtract.pm
===================================================================
--- HTML-TableExtract-2.15.orig/lib/HTML/TableExtract.pm
+++ HTML-TableExtract-2.15/lib/HTML/TableExtract.pm
@@ -438,7 +438,7 @@ sub _reset_state {
$self->{_counts} = [];
$self->{_in_a_table} = 0;
$self->{_parsing} = 0;
- $self->tree->delete_content() if TREE();
+ #$self->tree->delete_content() if TREE();
}
sub _emsg {
