Hello community,

here is the log from the commit of package perl-Module-ScanDeps for 
openSUSE:Factory checked in at 2020-08-12 10:55:25
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-ScanDeps (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.3399 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Module-ScanDeps"

Wed Aug 12 10:55:25 2020 rev:26 rq:824985 version:1.28

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Module-ScanDeps/perl-Module-ScanDeps.changes    
    2019-11-18 19:58:51.097940481 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.3399/perl-Module-ScanDeps.changes
      2020-08-12 10:55:31.492714315 +0200
@@ -1,0 +2,12 @@
+Fri Aug  7 03:10:39 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 1.28
+   see /usr/share/doc/packages/perl-Module-ScanDeps/Changes
+
+  1.28  2020-08-06
+
+  - placate cperl ("Attempt to change hash while iterating over it.")
+
+  - make _find_encoding() more robust
+
+-------------------------------------------------------------------

Old:
----
  Module-ScanDeps-1.27.tar.gz

New:
----
  Module-ScanDeps-1.28.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Module-ScanDeps.spec ++++++
--- /var/tmp/diff_new_pack.NTmCc5/_old  2020-08-12 10:55:32.244714689 +0200
+++ /var/tmp/diff_new_pack.NTmCc5/_new  2020-08-12 10:55:32.248714691 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Module-ScanDeps
 #
-# Copyright (c) 2019 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
@@ -17,13 +17,13 @@
 
 
 Name:           perl-Module-ScanDeps
-Version:        1.27
+Version:        1.28
 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}
+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
@@ -34,7 +34,6 @@
 BuildRequires:  perl(version)
 Requires:       perl(Module::Metadata)
 Requires:       perl(version)
-BuildArch:      noarch
 %{perl_requires}
 
 %description

++++++ Module-ScanDeps-1.27.tar.gz -> Module-ScanDeps-1.28.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Module-ScanDeps-1.27/Changes 
new/Module-ScanDeps-1.28/Changes
--- old/Module-ScanDeps-1.27/Changes    2019-01-15 21:02:01.000000000 +0100
+++ new/Module-ScanDeps-1.28/Changes    2020-08-06 09:53:16.000000000 +0200
@@ -1,3 +1,9 @@
+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 <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Module-ScanDeps-1.27/META.json 
new/Module-ScanDeps-1.28/META.json
--- old/Module-ScanDeps-1.27/META.json  2019-01-15 21:05:35.000000000 +0100
+++ new/Module-ScanDeps-1.28/META.json  2020-08-06 09:58:12.000000000 +0200
@@ -64,6 +64,6 @@
       },
       "x_MailingList" : "mailto:[email protected]";
    },
-   "version" : "1.27",
-   "x_serialization_backend" : "JSON::PP version 2.97001"
+   "version" : "1.28",
+   "x_serialization_backend" : "JSON::PP version 4.05"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Module-ScanDeps-1.27/META.yml 
new/Module-ScanDeps-1.28/META.yml
--- old/Module-ScanDeps-1.27/META.yml   2019-01-15 21:05:35.000000000 +0100
+++ new/Module-ScanDeps-1.28/META.yml   2020-08-06 09:58:12.000000000 +0200
@@ -34,5 +34,5 @@
   MailingList: mailto:[email protected]
   bugtracker: https://rt.cpan.org/Dist/Display.html?Queue=Module-ScanDeps
   repository: git://github.com/rschupp/Module-ScanDeps.git
-version: '1.27'
+version: '1.28'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Module-ScanDeps-1.27/lib/Module/ScanDeps.pm 
new/Module-ScanDeps-1.28/lib/Module/ScanDeps.pm
--- old/Module-ScanDeps-1.27/lib/Module/ScanDeps.pm     2019-01-15 
20:55:20.000000000 +0100
+++ new/Module-ScanDeps-1.28/lib/Module/ScanDeps.pm     2020-07-18 
16:46:56.000000000 +0200
@@ -4,7 +4,7 @@
 use warnings;
 use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs 
$ScanFileRE );
 
-$VERSION   = '1.27';
+$VERSION   = '1.28';
 @EXPORT    = qw( scan_deps scan_deps_runtime );
 @EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime 
path_to_inc_name );
 
@@ -1024,10 +1024,10 @@
 }
 
 sub _find_encoding {
+    my ($enc) = @_;
     return unless $] >= 5.008 and eval { require Encode; %Encode::ExtModule };
 
-    my $mod = $Encode::ExtModule{ Encode::find_encoding($_[0])->name }
-      or return;
+    my $mod = eval { $Encode::ExtModule{ Encode::find_encoding($enc)->name } } 
or return;
     $mod =~ s{::}{/}g;
     return "$mod.pm";
 }
@@ -1362,7 +1362,7 @@
     require Config;
     my $dlext = $Config::Config{dlext};
 
-    while (my ($k, $v) = each %_INC)
+    foreach my $k (keys %_INC)
     {
         # NOTES:
         # (1) An unsuccessful "require" may store an undefined value into %INC.
@@ -1373,6 +1373,8 @@
         #     "Class/MOP/Class/Immutable/Moose/Meta/Class.pm" => "(set by 
Moose)"
         #     On some architectures (e.g. Windows) Cwd::abs_path() will throw
         #     an exception for such a pathname.
+
+        my $v = $_INC{$k};
         if (defined $v && !ref $v && -e $v)
         {
             $_INC{$k} = Cwd::abs_path($v);
@@ -1473,8 +1475,8 @@
 
     require File::Spec;
 
-    while (my ($key, $path) = each %{ $info->{'%INC'} }) {
-        $path =~ s:\\:/:g;
+    foreach my $key (keys %{ $info->{'%INC'} }) {
+        (my $path = $info->{'%INC'}{$key}) =~ s:\\:/:g;
         $key =~ s:\\:/:g;
         $key =~ s/$strip_inc_prefix// if 
File::Spec->file_name_is_absolute($key);
 


Reply via email to