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-04-22 18:04:49
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-ScanDeps (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.12324 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-ScanDeps"
Thu Apr 22 18:04:49 2021 rev:29 rq:887837 version:1.31
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Module-ScanDeps/perl-Module-ScanDeps.changes
2021-01-15 19:46:14.646023235 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.12324/perl-Module-ScanDeps.changes
2021-04-22 18:06:27.926744418 +0200
@@ -1,0 +2,15 @@
+Thu Apr 22 03:09:13 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.31
+ see /usr/share/doc/packages/perl-Module-ScanDeps/Changes
+
+ 1.31 2021-04-21
+ - Try to match more PerlIO ":layer(args)" in open() or binmode()
+ e.g. Spreadsheet::ParseODS uses ":gzip(none)";
+ Thanks, @shawnlaffan, for the suggestion (cf. PR #12)
+ - XML::Twig::XPath needs either XML::XPathEngine or XML::XPath
+ XML::Twig may use URI if present
+ - Moo may use Class::XSAccessor if present
+ - Fixes #10 "Support IUP.pm Module"
+
+-------------------------------------------------------------------
Old:
----
Module-ScanDeps-1.30.tar.gz
New:
----
Module-ScanDeps-1.31.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-ScanDeps.spec ++++++
--- /var/tmp/diff_new_pack.lXoqIz/_old 2021-04-22 18:06:28.330745087 +0200
+++ /var/tmp/diff_new_pack.lXoqIz/_new 2021-04-22 18:06:28.334745094 +0200
@@ -18,7 +18,7 @@
%define cpan_name Module-ScanDeps
Name: perl-Module-ScanDeps
-Version: 1.30
+Version: 1.31
Release: 0
Summary: Recursively scan Perl code for dependencies
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ Module-ScanDeps-1.30.tar.gz -> Module-ScanDeps-1.31.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/Changes
new/Module-ScanDeps-1.31/Changes
--- old/Module-ScanDeps-1.30/Changes 2021-01-13 15:53:19.000000000 +0100
+++ new/Module-ScanDeps-1.31/Changes 2021-04-21 16:13:52.000000000 +0200
@@ -1,3 +1,17 @@
+1.31 2021-04-21
+
+- Try to match more PerlIO ":layer(args)" in open() or binmode()
+ e.g. Spreadsheet::ParseODS uses ":gzip(none)";
+
+ Thanks, @shawnlaffan, for the suggestion (cf. PR #12)
+
+- XML::Twig::XPath needs either XML::XPathEngine or XML::XPath
+ XML::Twig may use URI if present
+
+- Moo may use Class::XSAccessor if present
+
+- Fixes #10 "Support IUP.pm Module"
+
1.30 2021-01-13
- change bugtracker to GitHub issues
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/META.json
new/Module-ScanDeps-1.31/META.json
--- old/Module-ScanDeps-1.30/META.json 2021-01-13 15:58:49.000000000 +0100
+++ new/Module-ScanDeps-1.31/META.json 2021-04-21 16:14:30.000000000 +0200
@@ -64,6 +64,6 @@
},
"x_MailingList" : "mailto:p...@perl.org";
},
- "version" : "1.30",
- "x_serialization_backend" : "JSON::PP version 4.05"
+ "version" : "1.31",
+ "x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/META.yml
new/Module-ScanDeps-1.31/META.yml
--- old/Module-ScanDeps-1.30/META.yml 2021-01-13 15:58:49.000000000 +0100
+++ new/Module-ScanDeps-1.31/META.yml 2021-04-21 16:14:30.000000000 +0200
@@ -34,5 +34,5 @@
MailingList: mailto:p...@perl.org
bugtracker: https://github.com/rschupp/Module-ScanDeps/issues
repository: git://github.com/rschupp/Module-ScanDeps.git
-version: '1.30'
+version: '1.31'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/lib/Module/ScanDeps.pm
new/Module-ScanDeps-1.31/lib/Module/ScanDeps.pm
--- old/Module-ScanDeps-1.30/lib/Module/ScanDeps.pm 2020-12-10
17:59:03.000000000 +0100
+++ new/Module-ScanDeps-1.31/lib/Module/ScanDeps.pm 2021-04-21
15:55:39.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs
$ScanFileRE );
-$VERSION = '1.30';
+$VERSION = '1.31';
@EXPORT = qw( scan_deps scan_deps_runtime );
@EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime
path_to_inc_name );
@@ -363,6 +363,7 @@
IO/Pipe.pm IO/Socket.pm IO/Dir.pm
)],
'IO/Socket.pm' => [qw( IO/Socket/UNIX.pm )],
+ 'IUP.pm' => 'sub',
'JSON.pm' => sub {
# add JSON/PP*.pm, JSON/PP/*.pm
# and ignore other JSON::* modules (e.g. JSON/Syck.pm, JSON/Any.pm);
@@ -406,6 +407,7 @@
'Module/Pluggable.pm' => sub {
_glob_in_inc('$CurrentPackage/Plugin', 1);
},
+ 'Moo.pm' => [qw( Class/XSAccessor.pm )],
'Moose.pm' => sub {
_glob_in_inc('Moose', 1),
_glob_in_inc('Class/MOP', 1),
@@ -524,6 +526,8 @@
_glob_in_inc('XML/Parser/Encodings', 1),
},
'XML/SAX.pm' => [qw( XML/SAX/ParserDetails.ini ) ],
+ 'XML/Twig.pm' => [qw( URI.pm )], # or URI::File
or LWP
+ 'XML/Twig/XPath.pm' => [qw( XML/XPathEngine.pm
XML/XPath.pm )],
'XMLRPC/Lite.pm' => sub {
_glob_in_inc('XMLRPC/Transport', 1);
},
@@ -1017,8 +1021,11 @@
my @mods;
push @mods, qw( PerlIO.pm PerlIO/encoding.pm Encode.pm ),
_find_encoding($1)
if $args =~ /:encoding\((.*?)\)/;
- push @mods, qw( PerlIO.pm PerlIO/via.pm )
- if $args =~ /:via\(/;
+ while ($args =~ /:(\w+)(?:\((.*?)\))?/g) {
+ push @mods, "PerlIO/$1.pm";
+ push @mods, "Encode.pm", _find_encoding($2) if $1 eq
"encoding";
+ }
+ push @mods, "PerlIO.pm" if @mods;
return \@mods if @mods;
}
if (/\b(?:en|de)code\(\s*['"]?([-\w]+)/) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/script/scandeps.pl
new/Module-ScanDeps-1.31/script/scandeps.pl
--- old/Module-ScanDeps-1.30/script/scandeps.pl 2018-12-24 13:18:02.000000000
+0100
+++ new/Module-ScanDeps-1.31/script/scandeps.pl 2021-01-20 18:27:46.000000000
+0100
@@ -83,8 +83,8 @@
next if $skip{$name};
- my $privPath = "$Config::Config{privlibexp}/$key";
- my $archPath = "$Config::Config{archlibexp}/$key";
+ my $privPath = "$Config{privlibexp}/$key";
+ my $archPath = "$Config{archlibexp}/$key";
$privPath =~ s|\\|\/|og;
$archPath =~ s|\\|\/|og;
if ($mod->{file} eq $privPath
@@ -204,8 +204,8 @@
=item B<--xargs>=I<STRING>
-If B<-x> is given, splits the C<STRING> using the function
-C<shellwords> from L<Text::ParseWords> and passes the result
+If B<-x> is given, splits the C<STRING> using the function
+C<shellwords> from L<Text::ParseWords> and passes the result
as C<@ARGV> when executing the code.
=item B<-B>, B<--bundle>
@@ -218,7 +218,7 @@
=item B<-V>, B<--verbose>
-Verbose mode: Output all files found during the process;
+Verbose mode: Output all files found during the process;
show dependencies between modules and availability.
Additionally, warns of any missing dependencies. If you find missing
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.30/t/7-check-dynaloader.t
new/Module-ScanDeps-1.31/t/7-check-dynaloader.t
--- old/Module-ScanDeps-1.30/t/7-check-dynaloader.t 2018-12-24
13:21:10.000000000 +0100
+++ new/Module-ScanDeps-1.31/t/7-check-dynaloader.t 2021-01-20
18:28:26.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use Test::More;
-use Config ();
+use Config;
use Module::ScanDeps;
use DynaLoader;
@@ -10,11 +10,11 @@
use Data::Dumper;
plan skip_all => "No dynamic loading available in your version of perl"
- unless $Config::Config{usedl};
+ unless $Config{usedl};
my @try_mods = qw( File::Glob Data::Dumper List::Util Time::HiRes
Compress::Raw::Zlib );
-my @dyna_mods = grep { my $mod = $_;
- eval("require $mod; 1")
+my @dyna_mods = grep { my $mod = $_;
+ eval("require $mod; 1")
&& grep { $_ eq $mod } @DynaLoader::dl_modules
} @try_mods;
plan skip_all => "No dynamic module found (tried @try_mods)"
@@ -35,7 +35,7 @@
# cf. DynaLoader.pm
my @modparts = split(/::/,$module);
my $modfname = defined &DynaLoader::mod2fname ?
DynaLoader::mod2fname(\@modparts) : $modparts[-1];
- my $auto_path = join('/', 'auto', @modparts,
"$modfname.$Config::Config{dlext}");
+ my $auto_path = join('/', 'auto', @modparts, "$modfname.$Config{dlext}");
check_bundle_path(static => $module, $auto_path,
sub { scan_deps(
@@ -107,7 +107,7 @@
"found some key that looks like it pulled in its shared lib
(auto_path=$auto_path)");
# Actually we accept anything that ends with $auto_path.
- ok($rv->{$entry}{file} =~ m{/\Q$auto_path\E$},
+ ok($rv->{$entry}{file} =~ m{/\Q$auto_path\E$},
"check_bundle_path:$tag for $module: ".
"the full bundle path we got \"$rv->{$entry}{file}\" looks legit");
}
