Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Module-ScanDeps for
openSUSE:Factory checked in at 2021-01-15 19:46:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-ScanDeps (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-ScanDeps"
Fri Jan 15 19:46:11 2021 rev:28 rq:863120 version:1.30
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Module-ScanDeps/perl-Module-ScanDeps.changes
2020-09-03 01:11:41.080417594 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.28504/perl-Module-ScanDeps.changes
2021-01-15 19:46:14.646023235 +0100
@@ -1,0 +2,15 @@
+Thu Jan 14 03:08:52 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.30
+ see /usr/share/doc/packages/perl-Module-ScanDeps/Changes
+
+ 1.30 2021-01-13
+ - change bugtracker to GitHub issues
+ - guard against trailing slashes for paths in @INC
+ - interprete more common "use lib" idioms
+ 1.29 2020-08-16
+ - implement interpretation of stuff like
+ use FindBin;
+ use lib "$FindBin/../lib";
+
+-------------------------------------------------------------------
Old:
----
Module-ScanDeps-1.29.tar.gz
New:
----
Module-ScanDeps-1.30.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-ScanDeps.spec ++++++
--- /var/tmp/diff_new_pack.RgIaq1/_old 2021-01-15 19:46:15.294024200 +0100
+++ /var/tmp/diff_new_pack.RgIaq1/_new 2021-01-15 19:46:15.298024206 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Module-ScanDeps
#
-# Copyright (c) 2020 SUSE LLC
+# 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
@@ -16,17 +16,15 @@
#
+%define cpan_name Module-ScanDeps
Name: perl-Module-ScanDeps
-Version: 1.29
+Version: 1.30
Release: 0
-%define cpan_name Module-ScanDeps
Summary: Recursively scan Perl code for dependencies
License: Artistic-1.0 OR GPL-1.0-or-later
-Group: Development/Libraries/Perl
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/R/RS/RSCHUPP/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Module::Metadata)
@@ -65,11 +63,11 @@
returned by 'get_files'.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-make %{?_smp_mflags}
+%make_build
%check
make test
@@ -80,7 +78,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc AUTHORS Changes README
%license LICENSE
++++++ Module-ScanDeps-1.29.tar.gz -> Module-ScanDeps-1.30.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.29/Changes
new/Module-ScanDeps-1.30/Changes
--- old/Module-ScanDeps-1.29/Changes 2020-08-06 09:53:16.000000000 +0200
+++ new/Module-ScanDeps-1.30/Changes 2021-01-13 15:53:19.000000000 +0100
@@ -1,9 +1,24 @@
+1.30 2021-01-13
+
+- change bugtracker to GitHub issues
+
+- guard against trailing slashes for paths in @INC
+
+- interprete more common "use lib" idioms
+
+1.29 2020-08-16
+
+- implement interpretation of stuff like
+
+ use FindBin;
+ use lib "$FindBin/../lib";
+
1.28 2020-08-06
- placate cperl ("Attempt to change hash while iterating over it.")
- make _find_encoding() more robust
-
+
1.27 2019-01-15
- fixes by Shawn Laffan <shawnlaf...@gmail.com>
@@ -18,13 +33,13 @@
- t/7-check-dynaloader.t: improve diagnostics
- drop Cwd from the list of potential XS modules
-
+
- suppress warnings in some ancient Perls
1.26 2018-12-12
- Glue DLLs of XS modules should have type "shared" rather than "data"
-
+
Detection broke on Windows where nowadays $Config{dlext} = "xs.dll"
(i.e. it's not a simple suffix)
@@ -38,10 +53,10 @@
1.25 2018-08-18
- Merge pull request #2 from shawnlaffan/master, thanx Shawn!
-
+
continue scanning one-liners when use if, autouse or >5.010 found
-- Fix how data obtained from compiling or executing a file
+- Fix how data obtained from compiling or executing a file
is incorporated (_info2rv).
Sanitize all pathnames to use slash (instead of backslash):
@@ -58,7 +73,7 @@
- Merge pull request from Salvador Fandi??o (salva), thx!
Specio::PartialDump uses unicore
-
+
- Fix RT#119737: Problems with detecting DateTime::Format::Natural dependencies
... by adding a %Preload rule
@@ -67,7 +82,7 @@
- add %Preload rules for List::SomeUtils and Pod::Simple::Transcode
- get rid of Module::Install, use ExtUtils::MakeMaker
-
+
1.22 2016-09-17
- Fix RT#117887: Not parsing new release of Net::DNS::Resolver
@@ -91,7 +106,7 @@
1.20 2015-10-04
- Fix RT #107304: Newer versions of File::Path cause warning "_Inline for
_Inline: No such file or directory at Module/ScanDeps.pm line 1339."
- - drop the dubious call to rmtree()
+ - drop the dubious call to rmtree()
- Fix RT106142: Preload dependencies for PDL and PDL::NiceSlice
- adopted from a patch by Shawn Laffan, thanks Shawn!
@@ -103,9 +118,9 @@
- A line of "use utf8;" just means "this file is encoded in UTF-8"
and should _not_ result in scanning utf8.pm which will pull in
- the whole Unicode shebang (propery tables and what not).
- Yes, utf8.pm *does* contain "require utf8_heavy.pl", but only inside
- an AUTOLOAD() that is *not* triggered by calling functions
+ the whole Unicode shebang (propery tables and what not).
+ Yes, utf8.pm *does* contain "require utf8_heavy.pl", but only inside
+ an AUTOLOAD() that is *not* triggered by calling functions
like utf8::is_utf8().
- OTOH the innocently looking one-liner
@@ -114,7 +129,7 @@
implicitly loads utf8.pm and triggers the AUTOLAD().
- - So prevent utf8.pm from being scanned and make utf8_heavy.pl
+ - So prevent utf8.pm from being scanned and make utf8_heavy.pl
the indicator for "I need the Unicode stuff" instead.
- Cache the results of _get_preload('utf8_heavy.pl').
@@ -128,7 +143,7 @@
);
scan_deps_static() registers a dependency on Bar.pm _and_
- Quux.pm when it has seen "use Foo;"
+ Quux.pm when it has seen "use Foo;"
- Minor changes:
- drop dubious %Preload of utf8.pm for SOAP::Lite and XML::Parser::Expat
@@ -140,7 +155,7 @@
1.19 2015-05-27
- - add %Preload rule for LWP::MediaTypes: data file LWP/media.types
+ - add %Preload rule for LWP::MediaTypes: data file LWP/media.types
- add %Preload entry for MIME::Types: data file MIME/types.db
@@ -190,7 +205,7 @@
- also scandeps.pl: die if an option is not recognized
- Remove some overzealous heuristics from scan_chunk()
- - they were looking for
+ - they were looking for
Foo::Bar->something
Foo::Bar::whatever(...)
@@ -198,9 +213,9 @@
_anywhere_ in programs to infer a dependency on Foo/Bar.pm.
BEWARE: This might break some use cases, i.e. missing some dependencies.
- On the other hand, this causes hard to investigate problems like the one
+ On the other hand, this causes hard to investigate problems like the one
starting at http://www.mail-archive.com/par@perl.org/msg05531.html.
- While the former can easily be worked around by the user itself (just
+ While the former can easily be worked around by the user itself (just
add a missing dependecy explicitly, e.g. using "pp -M ...") and
typically can be solved in general by adding a %Preload rule,
the latter just wastes people's times.
@@ -243,7 +258,7 @@
- Fix RT #90869: Use of uninitialized value $module in substitution (s///)
- - Fix RT #87775: typo fixes, thanks dsteinbrun...@pobox.com
+ - Fix RT #87775: typo fixes, thanks dsteinbrun...@pobox.com
- new %Preload rule for B::Hooks::EndOfScope
@@ -253,31 +268,31 @@
or Module::Runtime is detected (coz' they're doing runtime loading)
- change some tests to use Test::Requires instead of homegrown stuff;
- hence add it to "test_requires"
+ hence add it to "test_requires"
- clean up some uses of Test::More
1.11 2013-09-28
- Fix RT #89000: test broken by indirect base.pm disuse
- - delete base.pm from list of expected deps,
+ - delete base.pm from list of expected deps,
patch by Andrew Main (zef...@fysh.org)
- new %Preload rule for Net::HTTPS (e.g. used by LWP::Protocol::https)
- look for IO::Socket::SSL or Net::SSL
- new %Preload rule for YAML::Any
- - try to figure out what YAML::Any would have used
+ - try to figure out what YAML::Any would have used
(using YAML::Any->implementation)
- as fallback, include anything below YAML
1.10 2012-10-20
- - add %Preload rule for Params::Validate to detect
+ - add %Preload rule for Params::Validate to detect
its PP and XS implementations
- - Fix RT #80276 Module DateTime::Format::ISO8601 generates error
+ - Fix RT #80276 Module DateTime::Format::ISO8601 generates error
after being packaged
- - caused by failing to pack DateTime::Format::Builder::Parser::XXX modules
+ - caused by failing to pack DateTime::Format::Builder::Parser::XXX modules
needed by DateTime::Format::Builder::Parser
- add a corresponding %Preload rule
@@ -309,20 +324,20 @@
is an encoding "internally" handled by Encode.pm, e.g. "UTF-8")
- %Preload: add rules for Gtk2.pm and Pango.pm
- - %Preload: fix a problem with Image::ExifTool
+ - %Preload: fix a problem with Image::ExifTool
1.07 2011-11-29
- - RT #72796: dynaloader test fails when the .so files are in the
+ - RT #72796: dynaloader test fails when the .so files are in the
system lib dirs and local::lib is involved?
Relax a check in t/7-check-dynaloader.t
- Update Module::Install to 1.04
-
+
1.06 2011-11-28
- RT #72211: pp includes way too much modules (when using 'use strict;')?
- Rework regexes to detect "use MODULE ...":
- the following line from unicore/mktables
+ Rework regexes to detect "use MODULE ...":
+ the following line from unicore/mktables
my $unihan = 'Unihan properties are by default not enabled in the Perl
core. Instead use CPAN: Unicode::Unihan';
@@ -335,7 +350,7 @@
1.05 2011-11-02
- RT #72082: $FindBin::Bin issue on Moudel::ScanDeps 1.04
- Make FindBin work (at least with option -c or -x) by spoofing $0
+ Make FindBin work (at least with option -c or -x) by spoofing $0
in the temp script generated for M:SD::DataFeed
- RT #70134: patch suggestions for Module::ScanDeps 1.04: additional preload
rules, used_via_preload attribute
@@ -352,9 +367,9 @@
1.03 2011-07-18
- RT #69213: ScanDeps incompatible with AnyEvent (Perl 5.14, AnyEvent 5.34,
PAR 1.00.2)
- For option -c (compile) M:SD used to wrap the file in one big sub and
- appended an END block where it dumps %INC etc; the outer sub causes
problems
- with certain contructs. Instead we now use an INIT block prepended
+ For option -c (compile) M:SD used to wrap the file in one big sub and
+ appended an END block where it dumps %INC etc; the outer sub causes
problems
+ with certain contructs. Instead we now use an INIT block prepended
to the file.
- RT #69471: Problem with "eval { require SomeModule }" constructions
@@ -362,11 +377,11 @@
(these may be created by an unsuccessful "require" under certain
conditions).
Also omit CODE refs from @INC.
- - Fix for failing CPAN Testers report
+ - Fix for failing CPAN Testers report
http://www.cpantesters.org/cpan/report/4208fa16-a5d1-11e0-a0bc-c71a7862a918:
Perl 5.15.0 got rid of Shell.pm
- - Fix for failing CPAN Testers report
+ - Fix for failing CPAN Testers report
http://www.cpantesters.org/cpan/report/772147dc-6c1f-1014-baf2-318eb63ba09a:
- regex meta characters in filenames break consistency check
@@ -385,7 +400,7 @@
1.01 2011-03-26
- - %Preload: add "unicore/version" for Unicode/UCD.pm
+ - %Preload: add "unicore/version" for Unicode/UCD.pm
(because it contains a call openunicode(..., "version"))
1.00 2011-02-19
@@ -400,11 +415,11 @@
- add Eric Roode to AUTHORS (Steffen Mueller)
- RT #61027: "use lib" does not work (Roderich Schupp)
scan_line(): When handling "use lib '/some/dir'" we add
"/some/dir/ARCHNAME",
- "/some/dir/VER" and "/some/dir/VER/ARCHNAME", but forgot
+ "/some/dir/VER" and "/some/dir/VER/ARCHNAME", but forgot
to add "/some/dir" itself.
While we're at it, improve parsing the argument list of "use lib".
Simply eval the string, this should at least make all forms of
- quoted strings work correctly.
+ quoted strings work correctly.
- fix URI special case (clkao)
- fix a regression reported by CPAN Testers (Roderich Schupp)
- finally: bump version to 1.00
@@ -911,7 +926,7 @@
0.22 2003-08-07
- - huge patch to include almost all heuristics deducible from PerlApp:
+ - huge patch to include almost all heuristics deducible from PerlApp:
Authen::SASL, Crypt::Random, DBI, File::Spec,
HTTP::Message, Math::BigInt, MIME::Decoder, Net::DNS::RR,
Net::FTP, Net::SSH::Perl, SQL::Parser, Template,
@@ -1021,4 +1036,4 @@
- oops, Makefile shouldn't be in RCS.
- written-from-scratch version of dependency finding
- algorithm.
+ algorithm.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.29/META.json
new/Module-ScanDeps-1.30/META.json
--- old/Module-ScanDeps-1.29/META.json 2020-08-16 14:24:10.000000000 +0200
+++ new/Module-ScanDeps-1.30/META.json 2021-01-13 15:58:49.000000000 +0100
@@ -4,7 +4,7 @@
"Audrey Tang <c...@audreyt.org>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
@@ -55,7 +55,7 @@
"release_status" : "stable",
"resources" : {
"bugtracker" : {
- "web" : "https://rt.cpan.org/Dist/Display.html?Queue=Module-ScanDeps";
+ "web" : "https://github.com/rschupp/Module-ScanDeps/issues";
},
"repository" : {
"type" : "git",
@@ -64,6 +64,6 @@
},
"x_MailingList" : "mailto:p...@perl.org";
},
- "version" : "1.29",
- "x_serialization_backend" : "JSON::PP version 4.02"
+ "version" : "1.30",
+ "x_serialization_backend" : "JSON::PP version 4.05"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.29/META.yml
new/Module-ScanDeps-1.30/META.yml
--- old/Module-ScanDeps-1.29/META.yml 2020-08-16 14:24:10.000000000 +0200
+++ new/Module-ScanDeps-1.30/META.yml 2021-01-13 15:58:49.000000000 +0100
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -32,7 +32,7 @@
version: '0'
resources:
MailingList: mailto:p...@perl.org
- bugtracker: https://rt.cpan.org/Dist/Display.html?Queue=Module-ScanDeps
+ bugtracker: https://github.com/rschupp/Module-ScanDeps/issues
repository: git://github.com/rschupp/Module-ScanDeps.git
-version: '1.29'
+version: '1.30'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.29/Makefile.PL
new/Module-ScanDeps-1.30/Makefile.PL
--- old/Module-ScanDeps-1.29/Makefile.PL 2018-08-08 17:21:17.000000000
+0200
+++ new/Module-ScanDeps-1.30/Makefile.PL 2021-01-13 14:55:58.000000000
+0100
@@ -26,7 +26,7 @@
'Test::Requires' => 0,
},
- EXE_FILES => [ 'script/scandeps.pl' ],
+ EXE_FILES => [ 'script/scandeps.pl' ],
META_MERGE => {
"meta-spec" => { version => 2 },
@@ -37,7 +37,7 @@
web => 'https://github.com/rschupp/Module-ScanDeps',
},
MailingList => 'mailto:p...@perl.org',
- bugtracker => { web =>
'https://rt.cpan.org/Dist/Display.html?Queue=Module-ScanDeps' },
+ bugtracker => { web =>
'https://github.com/rschupp/Module-ScanDeps/issues' },
},
no_index => {
package => [qw( Module::ScanDeps::Cache Module::ScanDeps::DataFeed )],
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.29/lib/Module/ScanDeps.pm
new/Module-ScanDeps-1.30/lib/Module/ScanDeps.pm
--- old/Module-ScanDeps-1.29/lib/Module/ScanDeps.pm 2020-08-16
13:52:34.000000000 +0200
+++ new/Module-ScanDeps-1.30/lib/Module/ScanDeps.pm 2020-12-10
17:59:03.000000000 +0100
@@ -4,7 +4,7 @@
use warnings;
use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs
$ScanFileRE );
-$VERSION = '1.29';
+$VERSION = '1.30';
@EXPORT = qw( scan_deps scan_deps_runtime );
@EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime
path_to_inc_name );
@@ -18,14 +18,19 @@
);
use version;
-use Cwd ();
use File::Path ();
use File::Temp ();
-use File::Spec ();
-use File::Basename ();
use FileHandle;
use Module::Metadata;
+# NOTE: Keep the following imports exactly as specified, even if the
Module::ScanDeps source
+# doesn't reference some of them. See '"use lib" idioms' for the reason.
+use Cwd (qw(abs_path));
+use File::Spec;
+use File::Spec::Functions;
+use File::Basename;
+
+
$ScanFileRE = qr/(?:^|\\|\/)(?:[^.]*|.*\.(?i:p[ml]|t|al))$/;
=head1 NAME
@@ -617,19 +622,33 @@
}
{
- # We want to correctly interprete statements like
+ ## "use lib" idioms
+ #
+ # We want to correctly interprete stuff like
#
# use FindBin;
# use lib "$FindBin/../lib";
#
# Find out what $FindBin::Bin etc would have been if "use FindBin" had
been
# called in the first file to analyze.
+ #
+ # Notes:
# (1) We don't want to reimplement FindBin, hence fake $0 locally (as
the path of the
# first file analyzed) and call FindBin::again().
# (2) If the caller of scan_deps() itself uses FindBin, we don't want
to overwrite
# the value of "their" $FindBin::Bin.
+ #
+ # Other idioms seen sometimes:
+ #
+ # use lib "$ENV{FOO}/path";
+ # use lib File::Spec->catdir($FindBin::Bin, qw[.. qqlib] );
+ # use lib catdir(dirname($0), "perl");
+ # use lib dirname(abs_path($0));
+ #
+ # In order to correctly interprete these, the modules referenced have
to be imported.
+
- use FindBin;
+ require FindBin;
local $FindBin::Bin;
local $FindBin::RealBin;
@@ -1420,7 +1439,7 @@
my @dlls = grep { defined $_ && -e $_ }
Module::ScanDeps::DataFeed::_dl_shared_objects();
my @shared_objects = @dlls;
- push @shared_objects, grep { s/\.\Q$dlext\E$/.bs/ && -e $_ } @dlls;
+ push @shared_objects, grep { -e $_ } map { (my $bs = $_) =~
s/\.\Q$dlext\E$/.bs/; $bs } @dlls;
# write data file
my $data_file = $ENV{MSD_DATA_FILE};
@@ -1499,7 +1518,8 @@
my $rv = {};
my $incs = join('|', sort { length($b) <=> length($a) }
- map { s:\\:/:g; quotemeta($_) } @{
$info->{'@INC'} });
+ map { s:\\:/:g; s:^(/.*?)/+$:$1:; quotemeta($_) }
+ @{ $info->{'@INC'} });
my $i = is_insensitive_fs() ? "i" : "";
my $strip_inc_prefix = qr{^(?$i:$incs)/};
@@ -1551,8 +1571,8 @@
my %mark;
if ($rv->{$key} and _not_dup($key, $rv, $rv_sub)) {
warn "Different modules for file '$key' were found.\n"
- . " -> Using '" . _abs_path($rv_sub->{$key}{file}) . "'.\n"
- . " -> Ignoring '" . _abs_path($rv->{$key}{file}) . "'.\n";
+ . " -> Using '" . abs_path($rv_sub->{$key}{file}) . "'.\n"
+ . " -> Ignoring '" . abs_path($rv->{$key}{file}) . "'.\n";
$rv->{$key}{used_by} = [
grep (!$mark{$_}++,
@{ $rv->{$key}{used_by} },
@@ -1585,22 +1605,13 @@
sub _not_dup {
my ($key, $rv1, $rv2) = @_;
if (File::Spec->case_tolerant()) {
- return lc(_abs_path($rv1->{$key}{file})) ne
lc(_abs_path($rv2->{$key}{file}));
+ return lc(abs_path($rv1->{$key}{file})) ne
lc(abs_path($rv2->{$key}{file}));
}
else {
- return _abs_path($rv1->{$key}{file}) ne _abs_path($rv2->{$key}{file});
+ return abs_path($rv1->{$key}{file}) ne abs_path($rv2->{$key}{file});
}
}
-sub _abs_path {
- return join(
- '/',
- Cwd::abs_path(File::Basename::dirname($_[0])),
- File::Basename::basename($_[0]),
- );
-}
-
-
sub _warn_of_runtime_loader {
my $module = shift;
return if $SeenRuntimeLoader{$module}++;
