Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Feed-Find for openSUSE:Factory
checked in at 2021-10-26 20:14:08
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Feed-Find (Old)
and /work/SRC/openSUSE:Factory/.perl-Feed-Find.new.1890 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Feed-Find"
Tue Oct 26 20:14:08 2021 rev:3 rq:927515 version:0.12
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Feed-Find/perl-Feed-Find.changes
2021-06-16 20:36:49.971324131 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Feed-Find.new.1890/perl-Feed-Find.changes
2021-10-26 20:14:52.902047458 +0200
@@ -1,0 +2,9 @@
+Sat Oct 23 03:06:56 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.12
+ see /usr/share/doc/packages/perl-Feed-Find/Changes
+
+ 0.12 2021.10.22
+ - Add GitHub info to Makefile.PL
+
+-------------------------------------------------------------------
Old:
----
Feed-Find-0.11.tar.gz
New:
----
Feed-Find-0.12.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Feed-Find.spec ++++++
--- /var/tmp/diff_new_pack.4B5vEb/_old 2021-10-26 20:14:53.386047714 +0200
+++ /var/tmp/diff_new_pack.4B5vEb/_new 2021-10-26 20:14:53.390047716 +0200
@@ -18,7 +18,7 @@
%define cpan_name Feed-Find
Name: perl-Feed-Find
-Version: 0.11
+Version: 0.12
Release: 0
Summary: Syndication feed auto-discovery
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ Feed-Find-0.11.tar.gz -> Feed-Find-0.12.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/.github/workflows/perltest.yml
new/Feed-Find-0.12/.github/workflows/perltest.yml
--- old/Feed-Find-0.11/.github/workflows/perltest.yml 1970-01-01
01:00:00.000000000 +0100
+++ new/Feed-Find-0.12/.github/workflows/perltest.yml 2021-10-22
12:24:21.000000000 +0200
@@ -0,0 +1,32 @@
+# This is a basic workflow to help you get started with Actions
+
+name: CI
+
+# Controls when the action will run. Triggers the workflow on push or pull
request
+# events but only for the master branch
+on:
+ push:
+ branches: [ master ]
+ pull_request:
+ branches: [ master ]
+ workflow_dispatch:
+
+# A workflow run is made up of one or more jobs that can run sequentially or
in parallel
+jobs:
+ build:
+ runs-on: ${{ matrix.os }}
+ strategy:
+ matrix:
+ os: ['ubuntu-latest', 'macos-latest', 'windows-latest']
+ perl: [ 'latest' ]
+ name: Perl ${{ matrix.perl }} on ${{ matrix.os }}
+ steps:
+ - uses: actions/checkout@v2
+ - name: Set up perl
+ uses: shogo82148/actions-setup-perl@v1
+ with:
+ perl-version: ${{ matrix.perl }}
+ - run: perl -V
+ - run: cpanm Module::Install
+ - run: cpanm --installdeps .
+ - run: prove -lv t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/Changes new/Feed-Find-0.12/Changes
--- old/Feed-Find-0.11/Changes 2021-06-14 12:10:59.000000000 +0200
+++ new/Feed-Find-0.12/Changes 2021-10-22 17:03:26.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Feed::Find
+0.12 2021.10.22
+ - Add GitHub info to Makefile.PL
+
0.11 2021.06.14
- Add test for "file://" URLs (RT 12242)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/MANIFEST new/Feed-Find-0.12/MANIFEST
--- old/Feed-Find-0.11/MANIFEST 2021-06-14 12:06:36.000000000 +0200
+++ new/Feed-Find-0.12/MANIFEST 2021-10-22 17:06:46.000000000 +0200
@@ -1,9 +1,11 @@
+.github/workflows/perltest.yml
Changes
inc/Module/Install.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
+inc/Module/Install/GithubMeta.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/ReadmeFromPod.pm
@@ -20,6 +22,8 @@
t/00-compile.t
t/01-find.t
t/02-fileurl.t
+t/data/autodiscover/fix_uri
+t/data/autodiscover/strip_wayback
t/data/href.html
t/data/link.html
xt/pod.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/META.yml new/Feed-Find-0.12/META.yml
--- old/Feed-Find-0.11/META.yml 2021-06-14 12:12:09.000000000 +0200
+++ new/Feed-Find-0.12/META.yml 2021-10-22 17:07:02.000000000 +0200
@@ -28,6 +28,7 @@
URI: 0
perl: 5.8.1
resources:
+ homepage: https://github.com/davorg/Feed-Find/
license: http://dev.perl.org/licenses/
repository: git://github.com/davorg/Feed-Find.git
-version: '0.11'
+version: '0.12'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/MYMETA.json
new/Feed-Find-0.12/MYMETA.json
--- old/Feed-Find-0.11/MYMETA.json 2021-06-14 12:12:16.000000000 +0200
+++ new/Feed-Find-0.12/MYMETA.json 2021-10-22 17:07:05.000000000 +0200
@@ -45,6 +45,7 @@
},
"release_status" : "stable",
"resources" : {
+ "homepage" : "https://github.com/davorg/Feed-Find/";,
"license" : [
"http://dev.perl.org/licenses/";
],
@@ -53,6 +54,6 @@
"url" : "git://github.com/davorg/Feed-Find.git"
}
},
- "version" : "0.11",
+ "version" : "0.12",
"x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/MYMETA.yml
new/Feed-Find-0.12/MYMETA.yml
--- old/Feed-Find-0.11/MYMETA.yml 2021-06-14 12:12:09.000000000 +0200
+++ new/Feed-Find-0.12/MYMETA.yml 2021-10-22 17:07:02.000000000 +0200
@@ -27,6 +27,7 @@
URI: '0'
perl: '5.008001'
resources:
+ homepage: https://github.com/davorg/Feed-Find/
license: http://dev.perl.org/licenses/
repository: git://github.com/davorg/Feed-Find.git
version: '0.11'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/Makefile.PL
new/Feed-Find-0.12/Makefile.PL
--- old/Feed-Find-0.11/Makefile.PL 2021-06-11 11:14:08.000000000 +0200
+++ new/Feed-Find-0.12/Makefile.PL 2021-10-22 16:48:33.000000000 +0200
@@ -13,4 +13,5 @@
author_tests('xt');
auto_set_repository;
+githubmeta;
WriteAll;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/inc/Module/Install/GithubMeta.pm
new/Feed-Find-0.12/inc/Module/Install/GithubMeta.pm
--- old/Feed-Find-0.11/inc/Module/Install/GithubMeta.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Feed-Find-0.12/inc/Module/Install/GithubMeta.pm 2021-10-22
17:07:02.000000000 +0200
@@ -0,0 +1,53 @@
+#line 1
+package Module::Install::GithubMeta;
+
+use strict;
+use warnings;
+use Cwd;
+use base qw(Module::Install::Base);
+use vars qw($VERSION);
+
+$VERSION = '0.30';
+
+sub githubmeta {
+ my $self = shift;
+ return unless $Module::Install::AUTHOR;
+ return unless _under_git();
+ return unless $self->can_run('git');
+ my $remote = shift || 'origin';
+ local $ENV{LC_ALL}='C';
+ local $ENV{LANG}='C';
+ return unless my ($git_url) = `git remote show -n $remote` =~ /URL: (.*)$/m;
+ return unless $git_url =~ /github\.com/; # Not a Github repository
+ my $http_url = $git_url;
+ $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!;
+ $http_url =~ s![\w\-]+\@([^:]+):!https://$1/!;
+ $http_url =~ s!\.git$!/!;
+ $self->repository( $git_url );
+ $self->homepage( $http_url ) unless $self->homepage();
+ return 1;
+}
+
+sub _under_git {
+ return 1 if -e '.git';
+ my $cwd = getcwd;
+ my $last = $cwd;
+ my $found = 0;
+ while (1) {
+ chdir '..' or last;
+ my $current = getcwd;
+ last if $last eq $current;
+ $last = $current;
+ if ( -e '.git' ) {
+ $found = 1;
+ last;
+ }
+ }
+ chdir $cwd;
+ return $found;
+}
+
+'Github';
+__END__
+
+#line 113
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/lib/Feed/Find.pm
new/Feed-Find-0.12/lib/Feed/Find.pm
--- old/Feed-Find-0.11/lib/Feed/Find.pm 2021-06-14 12:10:59.000000000 +0200
+++ new/Feed-Find-0.12/lib/Feed/Find.pm 2021-10-22 17:03:53.000000000 +0200
@@ -7,9 +7,10 @@
use LWP::UserAgent;
use HTML::Parser;
use URI;
+use Carp;
use vars qw( $VERSION $ua );
-$VERSION = '0.11';
+$VERSION = '0.12';
use constant FEED_MIME_TYPES => [
'application/x.atom+xml',
@@ -20,8 +21,8 @@
'application/rdf+xml',
];
-our $FEED_EXT = qr/\.(?:rss|xml|rdf|atom)$/;
-our %IsFeed = map { $_ => 1 } @{ FEED_MIME_TYPES() };
+my $FEED_EXT = qr/\.(?:rss|xml|rdf|atom)$/;
+my %IsFeed = map { $_ => 1 } @{ FEED_MIME_TYPES() };
sub find {
my $class = shift;
@@ -39,12 +40,12 @@
my($chunk, $res, $proto) = @_;
if ($IsFeed{$res->content_type}) {
push @{ $p->{feeds} }, $uri;
- die "Done parsing";
+ croak 'Done parsing';
}
- $p->parse($chunk) or die "Done parsing";
+ $p->parse($chunk) or croak 'Done parsing';
});
return $class->error($res->status_line) unless $res->is_success;
- @{ $p->{feeds} };
+ return @{ $p->{feeds} };
}
sub find_in_html {
@@ -55,11 +56,15 @@
$p->{base_uri} = $base_uri;
$p->{feeds} = [];
$p->parse($$html);
- @{ $p->{feeds} };
+ return @{ $p->{feeds} };
}
sub _find_links {
my($p, $tag, $attr) = @_;
+
+ my %head_tag = map { $_ => 1 }
+ qw[ meta isindex title script style head html ];
+
my $base_uri = $p->{base_uri};
if ($tag eq 'link') {
return unless $attr->{rel};
@@ -74,7 +79,7 @@
($rel{alternate} || $rel{'service.feed'});
} elsif ($tag eq 'base') {
$p->{base_uri} = $attr->{href} if $attr->{href};
- } elsif ($tag =~ /^(?:meta|isindex|title|script|style|head|html)$/) {
+ } elsif ($head_tag{$tag}) {
## Ignore other valid tags inside of <head>.
} elsif ($tag eq 'a') {
my $href = $attr->{href} or return;
@@ -86,6 +91,8 @@
## so we stop parsing.
$p->eof if @{ $p->{feeds} };
}
+
+ return;
}
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/t/data/autodiscover/fix_uri
new/Feed-Find-0.12/t/data/autodiscover/fix_uri
--- old/Feed-Find-0.11/t/data/autodiscover/fix_uri 1970-01-01
01:00:00.000000000 +0100
+++ new/Feed-Find-0.12/t/data/autodiscover/fix_uri 2021-06-18
11:48:25.000000000 +0200
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use File::Slurp;
+
+sub fix_one {
+ my ($file) = @_;
+
+ my $html = read_file $file;
+
+ $html =~
s|https://web.archive.org/web/\d+/http://www.ragingplatypus.com|http://example.com|g;
+
+ write_file($file, $html);
+}
+
+for (@ARGV) {
+ say $_;
+ fix_one($_);
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Feed-Find-0.11/t/data/autodiscover/strip_wayback
new/Feed-Find-0.12/t/data/autodiscover/strip_wayback
--- old/Feed-Find-0.11/t/data/autodiscover/strip_wayback 1970-01-01
01:00:00.000000000 +0100
+++ new/Feed-Find-0.12/t/data/autodiscover/strip_wayback 2021-06-18
11:35:14.000000000 +0200
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use File::Slurp;
+
+sub strip_one {
+ my ($file) = @_;
+
+ my $html = read_file $file;
+
+ $html =~ s/<head><script.+<!-- End Wayback Rewrite JS Include -->/<head>/s;
+ $html =~ s/<!-- BEGIN WAYBACK TOOLBAR INSERT -->.+<!-- END WAYBACK TOOLBAR
INSERT -->//s;
+ $html =~ s/<!--.+//s;
+
+ write_file($file, $html);
+}
+
+for (@ARGV) {
+ say $_;
+ strip_one($_);
+}
