Hello community, here is the log from the commit of package perl-File-Path for openSUSE:Factory checked in at 2017-08-06 11:24:57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Path (Old) and /work/SRC/openSUSE:Factory/.perl-File-Path.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Path" Sun Aug 6 11:24:57 2017 rev:4 rq:514085 version:2.150000 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Path/perl-File-Path.changes 2017-06-27 10:20:57.757821420 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-Path.new/perl-File-Path.changes 2017-08-06 11:24:58.406483255 +0200 @@ -1,0 +2,9 @@ +Mon Jul 31 05:32:54 UTC 2017 - [email protected] + +- updated to 2.15 + see /usr/share/doc/packages/perl-File-Path/Changes + + 2.15 2017-07-29 + - Correct documentation error re possible arguments for rmtree(). + +------------------------------------------------------------------- Old: ---- File-Path-2.14.tar.gz New: ---- File-Path-2.15.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Path.spec ++++++ --- /var/tmp/diff_new_pack.nfszlW/_old 2017-08-06 11:24:59.506328309 +0200 +++ /var/tmp/diff_new_pack.nfszlW/_new 2017-08-06 11:24:59.514327183 +0200 @@ -17,10 +17,10 @@ Name: perl-File-Path -Version: 2.140000 +Version: 2.150000 Release: 0 -%define cpan_version 2.14 -Provides: perl(File::Path) = 2.140000 +%define cpan_version 2.15 +Provides: perl(File::Path) = 2.150000 #Upstream: James Keenan and Richard Elberger 1995-2017. All rights reserved. %define cpan_name File-Path Summary: Create or remove directory trees ++++++ File-Path-2.14.tar.gz -> File-Path-2.15.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.14/Changes new/File-Path-2.15/Changes --- old/File-Path-2.14/Changes 2017-06-07 23:30:37.000000000 +0200 +++ new/File-Path-2.15/Changes 2017-07-30 04:32:39.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Perl extension File::Path. +2.15 2017-07-29 + - Correct documentation error re possible arguments for rmtree(). + 2.14 2017-06-07 - When creating subdirectories for testing underneath File::Spec::Functions::tmpdir(), use randomly generated strings. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.14/META.json new/File-Path-2.15/META.json --- old/File-Path-2.14/META.json 2017-06-07 23:31:31.000000000 +0200 +++ new/File-Path-2.15/META.json 2017-07-30 04:35:09.000000000 +0200 @@ -59,6 +59,6 @@ "web" : "https://github.com/jkeenan/File-Path"; } }, - "version" : "2.14", + "version" : "2.15", "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.14/META.yml new/File-Path-2.15/META.yml --- old/File-Path-2.14/META.yml 2017-06-07 23:31:31.000000000 +0200 +++ new/File-Path-2.15/META.yml 2017-07-30 04:35:09.000000000 +0200 @@ -31,5 +31,5 @@ File::Spec: '0' resources: repository: https://github.com/jkeenan/File-Path.git -version: '2.14' +version: '2.15' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.14/lib/File/Path.pm new/File-Path-2.15/lib/File/Path.pm --- old/File-Path-2.14/lib/File/Path.pm 2017-06-07 23:28:31.000000000 +0200 +++ new/File-Path-2.15/lib/File/Path.pm 2017-07-30 04:31:26.000000000 +0200 @@ -18,7 +18,7 @@ use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = '2.14'; +$VERSION = '2.15'; $VERSION = eval $VERSION; @ISA = qw(Exporter); @EXPORT = qw(mkpath rmtree); @@ -633,7 +633,7 @@ =head1 VERSION -2.14 - released June 07 2016. +2.15 - released June 07 2017. =head1 SYNOPSIS @@ -774,12 +774,14 @@ The C<remove_tree> function deletes the given directories and any files and subdirectories they might contain, much like the Unix -command C<rm -rf> or the Windows commands C<rmdir /s> and C<rd /s>. The -only exception to the function similarity is that C<remove_tree> accepts -only directories whereas C<rm -rf> also accepts files. +command C<rm -rf> or the Windows commands C<rmdir /s> and C<rd /s>. -The function accepts a list of directories to be -removed. Its behaviour may be tuned by an optional hashref +The function accepts a list of directories to be removed. (In point of fact, +it will also accept filesystem entries which are not directories, such as +regular files and symlinks. But, as its name suggests, its intent is to +remove trees rather than individual files.) + +C<remove_tree()>'s behaviour may be tuned by an optional hashref appearing as the last parameter on the call. If an empty string is passed to C<remove_tree>, an error will occur. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.14/t/Path.t new/File-Path-2.15/t/Path.t --- old/File-Path-2.14/t/Path.t 2017-06-07 23:14:17.000000000 +0200 +++ new/File-Path-2.15/t/Path.t 2017-07-30 04:05:36.000000000 +0200 @@ -3,7 +3,7 @@ use strict; -use Test::More tests => 167; +use Test::More tests => 165; use Config; use Fcntl ':mode'; use lib './t'; @@ -816,7 +816,7 @@ } SKIP: { - my $skip_count = 5; + my $skip_count = 3; skip "Windows will not set this error condition", $skip_count if $^O eq 'MSWin32'; @@ -826,10 +826,10 @@ my (@created, $error); my $user = join('_' => 'foobar', $$); @created = mkpath($deepest, { mode => 0711, user => $user, error => \$error }); - TODO: { - local $TODO = "Notwithstanding the phony 'user', mkpath will actually create subdirectories; should it?"; - is(scalar(@created), 0, "No subdirectories created"); - } +# TODO: { +# local $TODO = "Notwithstanding the phony 'user', mkpath will actually create subdirectories; should it?"; +# is(scalar(@created), 0, "No subdirectories created"); +# } is(scalar(@$error), 1, "caught error condition" ); my ($file, $message) = each %{$error->[0]}; like($message, @@ -878,10 +878,10 @@ my (@created, $error); my $bad_group = join('_' => 'foobarbaz', $$); @created = mkpath($deepest, { mode => 0711, group => $bad_group, error => \$error }); - TODO: { - local $TODO = "Notwithstanding the phony 'group', mkpath will actually create subdirectories; should it?"; - is(scalar(@created), 0, "No subdirectories created"); - } +# TODO: { +# local $TODO = "Notwithstanding the phony 'group', mkpath will actually create subdirectories; should it?"; +# is(scalar(@created), 0, "No subdirectories created"); +# } is(scalar(@$error), 1, "caught error condition" ); my ($file, $message) = each %{$error->[0]}; like($message,
