Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-File-Copy-Recursive-Reduced for openSUSE:Factory checked in at 2023-09-29 21:12:42 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Copy-Recursive-Reduced (Old) and /work/SRC/openSUSE:Factory/.perl-File-Copy-Recursive-Reduced.new.28202 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-File-Copy-Recursive-Reduced" Fri Sep 29 21:12:42 2023 rev:2 rq:1114049 version:0.7.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Copy-Recursive-Reduced/perl-File-Copy-Recursive-Reduced.changes 2019-07-11 13:15:19.938825703 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-Copy-Recursive-Reduced.new.28202/perl-File-Copy-Recursive-Reduced.changes 2023-09-29 21:12:54.776317910 +0200 @@ -1,0 +2,10 @@ +Sun Sep 17 03:06:52 UTC 2023 - Tina Müller <timueller+perl@suse.de> + +- updated to 0.007 + see /usr/share/doc/packages/perl-File-Copy-Recursive-Reduced/Changes + + 0.007 Sat Sep 16 07:48:17 AM EDT 2023 + - Corrections to better accommodate Windows path separators, mostly + provided by Håkon Hægland. + +------------------------------------------------------------------- Old: ---- File-Copy-Recursive-Reduced-0.006.tar.gz New: ---- File-Copy-Recursive-Reduced-0.007.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Copy-Recursive-Reduced.spec ++++++ --- /var/tmp/diff_new_pack.5FlPgY/_old 2023-09-29 21:12:56.592383433 +0200 +++ /var/tmp/diff_new_pack.5FlPgY/_new 2023-09-29 21:12:56.600383722 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-File-Copy-Recursive-Reduced # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2023 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,21 +16,22 @@ # +%define cpan_name File-Copy-Recursive-Reduced Name: perl-File-Copy-Recursive-Reduced -Version: 0.006 +Version: 0.7.0 Release: 0 -%define cpan_name File-Copy-Recursive-Reduced -Summary: Recursive copying of files and directories within Perl 5 toolchain +%define cpan_version 0.007 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/J/JK/JKEENAN/%{cpan_name}-%{version}.tar.gz +Summary: Recursive copying of files and directories within Perl 5 toolchain +URL: https://metacpan.org/release/%{cpan_name} +Source0: https://cpan.metacpan.org/authors/id/J/JK/JKEENAN/%{cpan_name}-%{cpan_version}.tar.gz BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Capture::Tiny) BuildRequires: perl(Path::Tiny) +Provides: perl(File::Copy::Recursive::Reduced) = 0.7.0 +%define __perllib_provides /bin/true %{perl_requires} %description @@ -42,11 +43,11 @@ distributions often described as being part of the Perl toolchain. %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{cpan_version} %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check make test @@ -57,7 +58,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc Changes README Todo %license LICENSE ++++++ File-Copy-Recursive-Reduced-0.006.tar.gz -> File-Copy-Recursive-Reduced-0.007.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/Changes new/File-Copy-Recursive-Reduced-0.007/Changes --- old/File-Copy-Recursive-Reduced-0.006/Changes 2018-04-20 16:23:08.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/Changes 2023-09-16 13:55:22.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Perl module File::Copy::Recursive::Reduced +0.007 Sat Sep 16 07:48:17 AM EDT 2023 + - Corrections to better accommodate Windows path separators, mostly + provided by Håkon Hægland. + 0.006 Fri Apr 20 10:21:48 EDT 2018 - File::Copy::Recursive 0.41 has been released to CPAN and addresses the problem which was the focus of diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/MANIFEST.SKIP new/File-Copy-Recursive-Reduced-0.007/MANIFEST.SKIP --- old/File-Copy-Recursive-Reduced-0.006/MANIFEST.SKIP 2018-04-17 15:08:51.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/MANIFEST.SKIP 2023-09-16 13:52:11.000000000 +0200 @@ -37,7 +37,6 @@ .version_info.pl dump \.gitignore -\.travis.yml \.appveyor.yml ^README.md ^.README.pod diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/META.json new/File-Copy-Recursive-Reduced-0.007/META.json --- old/File-Copy-Recursive-Reduced-0.006/META.json 2018-04-20 16:44:36.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/META.json 2023-09-16 13:56:33.000000000 +0200 @@ -4,13 +4,13 @@ "James E Keenan (jkeenan@cpan.org)" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "File-Copy-Recursive-Reduced", "no_index" : { @@ -62,6 +62,6 @@ "web" : "https://github.com/jkeenan/file-copy-recursive-reduced" } }, - "version" : "0.006", - "x_serialization_backend" : "JSON::PP version 2.27400_02" + "version" : "0.007", + "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/META.yml new/File-Copy-Recursive-Reduced-0.007/META.yml --- old/File-Copy-Recursive-Reduced-0.006/META.yml 2018-04-20 16:44:35.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/META.yml 2023-09-16 13:56:33.000000000 +0200 @@ -13,7 +13,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -33,5 +33,5 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=File-Copy-Recursive-Reduce... homepage: http://thenceforward.net/perl/modules/File-Copy-Recursive-Reduced/ repository: https://github.com/jkeenan/file-copy-recursive-reduced.git -version: '0.006' +version: '0.007' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/lib/File/Copy/Recursive/Reduced.pm new/File-Copy-Recursive-Reduced-0.007/lib/File/Copy/Recursive/Reduced.pm --- old/File-Copy-Recursive-Reduced-0.006/lib/File/Copy/Recursive/Reduced.pm 2018-04-20 16:43:32.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/lib/File/Copy/Recursive/Reduced.pm 2023-09-16 13:50:29.000000000 +0200 @@ -4,7 +4,7 @@ use parent qw( Exporter ); our @EXPORT_OK = qw( dircopy fcopy rcopy ); -our $VERSION = '0.006'; +our $VERSION = '0.007'; use File::Copy; use File::Find; @@ -505,6 +505,9 @@ Thanks also to Tom Hukins for supplying the patch which corrects FCR's problems and which has been incorporated into FCR2 as well. +Thanks to Håkon Hægland for paying attention to how this library performs on +Windows and other platforms to which the author does not have access. + =head1 AUTHOR James E Keenan @@ -520,7 +523,7 @@ The full text of the license can be found in the LICENSE file included with this module. -Copyright James E Keenan 2018. All rights reserved. +Copyright James E Keenan 2018-2023. All rights reserved. =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/t/001-fcopy.t new/File-Copy-Recursive-Reduced-0.007/t/001-fcopy.t --- old/File-Copy-Recursive-Reduced-0.006/t/001-fcopy.t 2018-04-19 22:16:06.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/t/001-fcopy.t 2023-09-15 14:42:44.000000000 +0200 @@ -91,7 +91,8 @@ $stderr = capture_stderr { $rv = fcopy($xsymlink, $xnew); }; ok(defined $rv, "fcopy() returned defined value when copying from symlink"); ok($rv, "fcopy() returned true value when copying from symlink"); - like($stderr, qr/Copying a symlink \($xsymlink\) whose target does not exist/, + + like($stderr, qr/Copying a symlink \(\Q$xsymlink\E\) whose target does not exist/, "fcopy(): Got expected warning when copying from symlink whose target does not exist"); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/t/002-dircopy.t new/File-Copy-Recursive-Reduced-0.007/t/002-dircopy.t --- old/File-Copy-Recursive-Reduced-0.006/t/002-dircopy.t 2018-04-20 02:45:50.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/t/002-dircopy.t 2023-09-15 14:42:56.000000000 +0200 @@ -281,8 +281,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "AAA: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = dircopy($from, $to); ok($rv, "dircopy() returned true value"); ok(-d $tdir2, "dircopy(): directory $tdir2 created"); @@ -309,8 +307,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "BBB: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = dircopy($from, $to); ok(-d $expected, "dircopy(): directory $expected created"); # test for creation of files @@ -344,8 +340,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "CCC: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = dircopy($from, $to); ok($rv, "dircopy() returned true value"); ok(-d $expected, "dircopy(): directory $expected created"); @@ -382,13 +376,16 @@ ok(defined $rv, "dircopy() returned defined value"); my %seen = (); my $wanted = sub { - unless ($File::Find::name eq $new) { - $seen{dirs}{$File::Find::name}++ if -d $File::Find::name; - if (-l $File::Find::name) { - $seen{symlinks}{$File::Find::name}++; + # NOTE: File::Find returns path with forward slashes on Windows + # so we need to convert to canonical path before comparing + my $name = File::Spec->canonpath($File::Find::name); + unless ($name eq $new) { + $seen{dirs}{$name}++ if -d $name; + if (-l $name) { + $seen{symlinks}{$name}++; } - elsif (-f $File::Find::name) { - $seen{files}{$File::Find::name}++; + elsif (-f $name) { + $seen{files}{$name}++; } } }; @@ -436,13 +433,16 @@ my %seen = (); my $wanted = sub { - unless ($File::Find::name eq $new) { - $seen{dirs}{$File::Find::name}++ if -d $File::Find::name; - if (-l $File::Find::name) { - $seen{symlinks}{$File::Find::name}++; + # NOTE: File::Find returns path with forward slashes on Windows + # so we need to convert to canonical path before comparing + my $name = File::Spec->canonpath($File::Find::name); + unless ($name eq $new) { + $seen{dirs}{$name}++ if -d $name; + if (-l $name) { + $seen{symlinks}{$name}++; } - elsif (-f $File::Find::name) { - $seen{files}{$File::Find::name}++; + elsif (-f $name) { + $seen{files}{$name}++; } } }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Copy-Recursive-Reduced-0.006/t/003-rcopy.t new/File-Copy-Recursive-Reduced-0.007/t/003-rcopy.t --- old/File-Copy-Recursive-Reduced-0.006/t/003-rcopy.t 2018-04-20 00:50:58.000000000 +0200 +++ new/File-Copy-Recursive-Reduced-0.007/t/003-rcopy.t 2023-09-15 17:33:34.000000000 +0200 @@ -98,7 +98,7 @@ $stderr = capture_stderr { $rv = rcopy($xsymlink, $xnew); }; ok(defined $rv, "fcopy() returned defined value when copying from symlink"); ok($rv, "fcopy() returned true value when copying from symlink"); - like($stderr, qr/Copying a symlink \($xsymlink\) whose target does not exist/, + like($stderr, qr/Copying a symlink \(\Q$xsymlink\E\) whose target does not exist/, "fcopy(): Got expected warning when copying from symlink whose target does not exist"); } @@ -507,8 +507,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "AAA: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = rcopy($from, $to); ok($rv, "rcopy() returned true value"); ok(-d $tdir2, "rcopy(): directory $tdir2 created"); @@ -535,8 +533,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "BBB: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = rcopy($from, $to); ok(-d $expected, "rcopy(): directory $expected created"); # test for creation of files @@ -570,8 +566,6 @@ # Test my ($from, $to) = ($old, $tdir2); - print STDOUT "CCC: 1st: $from\n"; - print STDOUT " 2nd: $to\n"; $rv = rcopy($from, $to); ok($rv, "rcopy() returned true value"); ok(-d $expected, "rcopy(): directory $expected created"); @@ -608,13 +602,16 @@ ok(defined $rv, "rcopy() returned defined value"); my %seen = (); my $wanted = sub { - unless ($File::Find::name eq $new) { - $seen{dirs}{$File::Find::name}++ if -d $File::Find::name; - if (-l $File::Find::name) { - $seen{symlinks}{$File::Find::name}++; + # NOTE: File::Find returns path with forward slashes on Windows + # so we need to convert to canonical path before comparing + my $name = File::Spec->canonpath($File::Find::name); + unless ($name eq $new) { + $seen{dirs}{$name}++ if -d $name; + if (-l $name) { + $seen{symlinks}{$name}++; } - elsif (-f $File::Find::name) { - $seen{files}{$File::Find::name}++; + elsif (-f $name) { + $seen{files}{$name}++; } } };