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 <[email protected]>
+
+- 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 ([email protected])"
],
"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-Reduced
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}++;
}
}
};
