Hello community, here is the log from the commit of package perl-File-Path for openSUSE:Factory checked in at 2018-09-07 15:34:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Path (Old) and /work/SRC/openSUSE:Factory/.perl-File-Path.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-File-Path" Fri Sep 7 15:34:40 2018 rev:5 rq:633281 version:2.160000 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Path/perl-File-Path.changes 2017-08-06 11:24:58.406483255 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-Path.new/perl-File-Path.changes 2018-09-07 15:34:43.586844718 +0200 @@ -1,0 +2,11 @@ +Sat Sep 1 05:23:30 UTC 2018 - coolo@suse.com + +- updated to 2.16 + see /usr/share/doc/packages/perl-File-Path/Changes + + 2.16 2018-08-31 + - Correct inadequate method of generating names for dummy users + and groups during testing (RTC 121967). No change in + functionality from 2.15. + +------------------------------------------------------------------- Old: ---- File-Path-2.15.tar.gz New: ---- File-Path-2.16.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Path.spec ++++++ --- /var/tmp/diff_new_pack.7iRbxU/_old 2018-09-07 15:34:44.406843795 +0200 +++ /var/tmp/diff_new_pack.7iRbxU/_new 2018-09-07 15:34:44.410843790 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-File-Path # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-File-Path -Version: 2.150000 +Version: 2.160000 Release: 0 -%define cpan_version 2.15 -Provides: perl(File::Path) = 2.150000 -#Upstream: James Keenan and Richard Elberger 1995-2017. All rights reserved. +%define cpan_version 2.16 +Provides: perl(File::Path) = 2.160000 +#Upstream: James Keenan and Richard Elberger 1995-2018. All rights reserved. %define cpan_name File-Path Summary: Create or remove directory trees -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/File-Path/ Source0: https://cpan.metacpan.org/authors/id/J/JK/JKEENAN/%{cpan_name}-%{cpan_version}.tar.gz ++++++ File-Path-2.15.tar.gz -> File-Path-2.16.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/Changes new/File-Path-2.16/Changes --- old/File-Path-2.15/Changes 2017-07-30 04:32:39.000000000 +0200 +++ new/File-Path-2.16/Changes 2018-08-31 14:45:57.000000000 +0200 @@ -1,5 +1,10 @@ Revision history for Perl extension File::Path. +2.16 2018-08-31 + - Correct inadequate method of generating names for dummy users + and groups during testing (RTC 121967). No change in + functionality from 2.15. + 2.15 2017-07-29 - Correct documentation error re possible arguments for rmtree(). @@ -31,7 +36,7 @@ 2.12_004 2017-04-18 - Certain functions used in tests are not available on Windows; skip them. - - Move certain functions used in testing to t/FilePathTest.pm. + - Move certain functions used in testing to t/FilePathTest.pm. 2.12_003 2017-04-07 - Add tests to improve coverage ratios as measured by Devel::Cover diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/META.json new/File-Path-2.16/META.json --- old/File-Path-2.15/META.json 2017-07-30 04:35:09.000000000 +0200 +++ new/File-Path-2.16/META.json 2018-08-31 15:01:23.000000000 +0200 @@ -4,14 +4,14 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown", "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "File-Path", "no_index" : { @@ -59,6 +59,6 @@ "web" : "https://github.com/jkeenan/File-Path" } }, - "version" : "2.15", - "x_serialization_backend" : "JSON::PP version 2.27400_02" + "version" : "2.16", + "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/META.yml new/File-Path-2.16/META.yml --- old/File-Path-2.15/META.yml 2017-07-30 04:35:09.000000000 +0200 +++ new/File-Path-2.16/META.yml 2018-08-31 15:01:23.000000000 +0200 @@ -14,7 +14,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.34, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -31,5 +31,5 @@ File::Spec: '0' resources: repository: https://github.com/jkeenan/File-Path.git -version: '2.15' +version: '2.16' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/README new/File-Path-2.16/README --- old/File-Path-2.15/README 2017-07-30 04:31:26.000000000 +0200 +++ new/File-Path-2.16/README 2018-08-31 14:32:39.000000000 +0200 @@ -44,7 +44,7 @@ COPYRIGHT This module is copyright (C) Charles Bailey, Tim Bunce, David Landgren, -James Keenan, and Richard Elberger 1995-2017. All rights reserved. +James Keenan, and Richard Elberger 1995-2018. All rights reserved. LICENSE This library is free software; you can redistribute it and/or modify it diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/lib/File/Path.pm new/File-Path-2.16/lib/File/Path.pm --- old/File-Path-2.15/lib/File/Path.pm 2017-07-30 04:31:26.000000000 +0200 +++ new/File-Path-2.16/lib/File/Path.pm 2018-08-31 14:38:58.000000000 +0200 @@ -18,7 +18,7 @@ use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = '2.15'; +$VERSION = '2.16'; $VERSION = eval $VERSION; @ISA = qw(Exporter); @EXPORT = qw(mkpath rmtree); @@ -633,7 +633,7 @@ =head1 VERSION -2.15 - released June 07 2017. +2.16 - released August 31 2018. =head1 SYNOPSIS @@ -1277,7 +1277,7 @@ =head1 COPYRIGHT This module is copyright (C) Charles Bailey, Tim Bunce, David Landgren, -James Keenan and Richard Elberger 1995-2017. All rights reserved. +James Keenan and Richard Elberger 1995-2018. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Path-2.15/t/Path_root.t new/File-Path-2.16/t/Path_root.t --- old/File-Path-2.15/t/Path_root.t 2017-07-30 04:05:36.000000000 +0200 +++ new/File-Path-2.16/t/Path_root.t 2018-08-31 14:27:28.000000000 +0200 @@ -64,23 +64,23 @@ { # invent a user and group that don't exist - do { ++$max_user } while ( getpwnam( $max_user ) ); - do { ++$max_group } while ( getgrnam( $max_group ) ); + my $phony_user = get_phony_user(); + my $phony_group = get_phony_group(); $dir = catdir($dir_stem, 'aad'); my $rv = _run_for_warning( sub { make_path( $dir, - { user => $max_user, group => $max_group } + { user => $phony_user, group => $phony_group } ) } ); like( $rv, - qr{unable to map $max_user to a uid, ownership not changed:}s, - "created a directory not owned by $max_user:$max_group...", + qr{unable to map $phony_user to a uid, ownership not changed:}s, + "created a directory not owned by $phony_user:$phony_group...", ); like( $rv, - qr{unable to map $max_group to a gid, group ownership not changed:}s, - "created a directory not owned by $max_user:$max_group...", + qr{unable to map $phony_group to a gid, group ownership not changed:}s, + "created a directory not owned by $phony_user:$phony_group...", ); } @@ -137,3 +137,30 @@ return "getgrent() appears to be insane" unless $max_gid > 0; return undef; } + +sub get_phony_user { + return "getpwent() not implemented on $^O" unless $Config{d_getpwent}; + return "not running as root" unless $< == 0; + my %real_users = (); + while(my @a=getpwent()) { + $real_users{$a[0]}++; + } + my $phony_stem = 'phonyuser'; + my $phony = ''; + do { $phony = $phony_stem . int(rand(10000)); } until (! $real_users{$phony}); + return $phony; +} + +sub get_phony_group { + return "getgrent() not implemented on $^O" unless $Config{d_getgrent}; + return "not running as root" unless $< == 0; + my %real_groups = (); + while(my @a=getgrent()) { + $real_groups{$a[0]}++; + } + my $phony_stem = 'phonygroup'; + my $phony = ''; + do { $phony = $phony_stem . int(rand(10000)); } until (! $real_groups{$phony}); + return $phony; +} +