Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-File-Finder for
openSUSE:Factory checked in at 2025-08-27 21:34:20
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-Finder (Old)
and /work/SRC/openSUSE:Factory/.perl-File-Finder.new.30751 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Finder"
Wed Aug 27 21:34:20 2025 rev:2 rq:1301451 version:1.10.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-Finder/perl-File-Finder.changes
2017-03-04 16:49:41.925726054 +0100
+++
/work/SRC/openSUSE:Factory/.perl-File-Finder.new.30751/perl-File-Finder.changes
2025-08-27 21:35:13.316041889 +0200
@@ -1,0 +2,14 @@
+Fri Aug 22 21:33:17 UTC 2025 - Tina Müller <[email protected]>
+
+- updated to 1.10.0 (1.01)
+ see /usr/share/doc/packages/perl-File-Finder/Changes
+
+ 1.0.1 Thu Aug 21 10:00:00 2025 -0700
+ - Updated Changes file for 1.0.0 release.
+
+ 1.0.0 Wed Aug 20 15:23:42 2025 -0700
+ - Added Windows compatibility fixes for user, group, nouser, nogroup,
and ls methods.
+ - Updated POD documentation.
+ - Bumped version to 1.0.0.
+
+-------------------------------------------------------------------
Old:
----
File-Finder-0.53.tar.gz
New:
----
File-Finder-1.01.tar.gz
README.md
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-File-Finder.spec ++++++
--- /var/tmp/diff_new_pack.lwat2g/_old 2025-08-27 21:35:14.196078629 +0200
+++ /var/tmp/diff_new_pack.lwat2g/_new 2025-08-27 21:35:14.196078629 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-File-Finder
#
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2025 SUSE LLC and contributors
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,28 +12,29 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
%define cpan_name File-Finder
Name: perl-File-Finder
-Version: 0.53
+Version: 1.10.0
Release: 0
-Summary: nice wrapper for File::Find ala find(1)
-License: GPL-1.0+ or Artistic-1.0
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/File-Finder/
-Source:
http://www.cpan.org/authors/id/M/ME/MERLYN/%{cpan_name}-%{version}.tar.gz
+# 1.01 -> normalize -> 1.10.0
+%define cpan_version 1.01
+License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Nice wrapper for File::Find ala find(1)
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/M/ME/MERLYN/%{cpan_name}-%{cpan_version}.tar.gz
+Source100: README.md
+BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(ExtUtils::MakeMaker)
-BuildRequires: perl(Test::More)
BuildRequires: perl(Text::Glob)
-Requires: perl(Test::More)
Requires: perl(Text::Glob)
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
-BuildArch: noarch
+Provides: perl(File::Finder) = %{version}
+Provides: perl(File::Finder::Steps) = %{version}
+%undefine __perllib_provides
%{perl_requires}
%description
@@ -127,14 +128,16 @@
below.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{cpan_version} -p1
+
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -path "*/scripts/*" ! -name "configure" -print0 | xargs -0 chmod
644
%build
perl Makefile.PL INSTALLDIRS=vendor
-make %{?_smp_mflags}
+%make_build
%check
-make %{?_smp_mflags} test
+make test
%install
%perl_make_install
@@ -142,6 +145,5 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README TODO
++++++ File-Finder-0.53.tar.gz -> File-Finder-1.01.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/Changes new/File-Finder-1.01/Changes
--- old/File-Finder-0.53/Changes 2005-04-08 21:46:05.000000000 +0200
+++ new/File-Finder-1.01/Changes 2025-08-21 21:39:12.000000000 +0200
@@ -1,5 +1,13 @@
Revision history for Perl extension File::Finder.
+1.0.1 Thu Aug 21 10:00:00 2025 -0700
+ - Updated Changes file for 1.0.0 release.
+
+1.0.0 Wed Aug 20 15:23:42 2025 -0700
+ - Added Windows compatibility fixes for user, group, nouser, nogroup, and
ls methods.
+ - Updated POD documentation.
+ - Bumped version to 1.0.0.
+
0.53 Fri Apr 8 12:45:22 PDT 2005
- added "use strict" to File::Finder::Steps
- added bug reporting address
@@ -31,5 +39,4 @@
0.01 Tue Dec 16 08:50:16 PST 2003
- original version; created by h2xs 1.23 with options
- -b5.6.0 -AXn File::Finder
-
+ -b5.6.0 -AXn File::Finder
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/MANIFEST
new/File-Finder-1.01/MANIFEST
--- old/File-Finder-0.53/MANIFEST 2005-03-26 18:58:34.000000000 +0100
+++ new/File-Finder-1.01/MANIFEST 2025-08-21 21:42:57.000000000 +0200
@@ -4,7 +4,8 @@
Makefile.PL
MANIFEST
MANIFEST.SKIP
-META.yml
+MYMETA.json
+MYMETA.yml
README
t/01-core.t
t/02-basic-logic.t
@@ -16,3 +17,5 @@
t/99-test-pod.t
t/cprove
TODO
+META.yml Module YAML meta-data (added by
MakeMaker)
+META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/MANIFEST.SKIP
new/File-Finder-1.01/MANIFEST.SKIP
--- old/File-Finder-0.53/MANIFEST.SKIP 2005-03-26 18:48:34.000000000 +0100
+++ new/File-Finder-1.01/MANIFEST.SKIP 2007-03-02 23:18:55.000000000 +0100
@@ -29,4 +29,6 @@
\bcover_db\b
### LOCAL ###
-^OLD/
+.git\b
+.gitignore
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/META.json
new/File-Finder-1.01/META.json
--- old/File-Finder-0.53/META.json 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Finder-1.01/META.json 2025-08-21 21:42:57.000000000 +0200
@@ -0,0 +1,43 @@
+{
+ "abstract" : "nice wrapper for File::Find ala find(1)",
+ "author" : [
+ "Randal L. Schwartz <[email protected]>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter
version 2.150010",
+ "license" : [
+ "unknown"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : 2
+ },
+ "name" : "File-Finder",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Test::More" : "0",
+ "Text::Glob" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.01",
+ "x_serialization_backend" : "JSON::PP version 4.06"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/META.yml
new/File-Finder-1.01/META.yml
--- old/File-Finder-0.53/META.yml 2005-04-08 21:47:48.000000000 +0200
+++ new/File-Finder-1.01/META.yml 2025-08-21 21:42:57.000000000 +0200
@@ -1,12 +1,24 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: File-Finder
-version: 0.53
-version_from: lib/File/Finder.pm
-installdirs: site
+---
+abstract: 'nice wrapper for File::Find ala find(1)'
+author:
+ - 'Randal L. Schwartz <[email protected]>'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version
2.150010'
+license: unknown
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: File-Finder
+no_index:
+ directory:
+ - t
+ - inc
requires:
- Test::More: 0
- Text::Glob: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.27
+ Test::More: '0'
+ Text::Glob: '0'
+version: '1.01'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/MYMETA.json
new/File-Finder-1.01/MYMETA.json
--- old/File-Finder-0.53/MYMETA.json 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Finder-1.01/MYMETA.json 2025-08-21 21:42:53.000000000 +0200
@@ -0,0 +1,43 @@
+{
+ "abstract" : "nice wrapper for File::Find ala find(1)",
+ "author" : [
+ "Randal L. Schwartz <[email protected]>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter
version 2.150010",
+ "license" : [
+ "unknown"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : 2
+ },
+ "name" : "File-Finder",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Test::More" : "0",
+ "Text::Glob" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.01",
+ "x_serialization_backend" : "JSON::PP version 4.06"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/MYMETA.yml
new/File-Finder-1.01/MYMETA.yml
--- old/File-Finder-0.53/MYMETA.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Finder-1.01/MYMETA.yml 2025-08-21 21:42:46.000000000 +0200
@@ -0,0 +1,24 @@
+---
+abstract: 'nice wrapper for File::Find ala find(1)'
+author:
+ - 'Randal L. Schwartz <[email protected]>'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version
2.150010'
+license: unknown
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: File-Finder
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Test::More: '0'
+ Text::Glob: '0'
+version: '1.01'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/lib/File/Finder/Steps.pm
new/File-Finder-1.01/lib/File/Finder/Steps.pm
--- old/File-Finder-0.53/lib/File/Finder/Steps.pm 2005-04-08
21:44:37.000000000 +0200
+++ new/File-Finder-1.01/lib/File/Finder/Steps.pm 2025-08-21
21:39:27.000000000 +0200
@@ -1,6 +1,6 @@
package File::Finder::Steps;
-our $VERSION = 0.53;
+our $VERSION = '1.01';
use strict;
@@ -52,6 +52,9 @@
As in I<find>, the default operator is "and", and short-circuiting is
performed.
+Note: the C<user>, C<nouser>, C<group>, C<nogroup>, and C<ls> methods
+are not available on Win32 systems.
+
=over
=item or
@@ -78,9 +81,9 @@
my $big_or_old = File::Finder
->type('f')
- ->left
- ->size("+100")->or->mtime("+90")
- ->right;
+ ->left
+ ->size("+100")->or->mtime("+90")
+ ->right;
find($big_or_old->ls, "/tmp");
You need parens because the "or" operator is lower precedence than
@@ -155,7 +158,7 @@
=cut
-sub comma { return "comma" } # gnu extension
+sub comma { return "comma" } # gnu extension
=item follow
@@ -219,7 +222,7 @@
return sub {
((stat _)[2] & $perm) == $perm;
};
- } elsif ($perm =~ s/^\+//) { # gnu extension
+ } elsif ($perm =~ s/^\+//) { # gnu extension
$perm = oct($perm) if $perm =~ /^0/;
return sub {
((stat _)[2] & $perm);
@@ -294,6 +297,8 @@
my $self = shift;
my $user = shift;
+ croak 'user not supported on this platform' if $^O eq 'MSWin32';
+
my $uid = ($user =~ /^\d+\z/) ? $user : _user_to_uid($user);
die "bad user $user" unless defined $uid;
@@ -312,6 +317,8 @@
my $self = shift;
my $group = shift;
+ croak 'group not supported on this platform' if $^O eq 'MSWin32';
+
my $gid = ($group =~ /^\d+\z/) ? $group : _group_to_gid($group);
die "bad group $gid" unless defined $gid;
@@ -327,6 +334,7 @@
=cut
sub nouser {
+ croak 'nouser not supported on this platform' if $^O eq 'MSWin32';
return sub {
CORE::not defined _uid_to_user((stat _)[4]);
}
@@ -339,6 +347,7 @@
=cut
sub nogroup {
+ croak 'nogroup not supported on this platform' if $^O eq 'MSWin32';
return sub {
CORE::not defined _gid_to_group((stat _)[5]);
}
@@ -471,7 +480,7 @@
sub exec {
my $self = shift;
- my @command = @_;
+ my @command = @ _;
return sub {
my @mapped = @command;
@@ -494,7 +503,7 @@
sub ok {
my $self = shift;
- my @command = @_;
+ my @command = @ _;
return sub {
my @mapped = @command;
@@ -560,7 +569,7 @@
## if this is another File::Finder object... then cheat:
$eval = $eval->as_wanted if UNIVERSAL::can($eval, "as_wanted");
- return $eval; # just reuse the coderef
+ return $eval; # just reuse the coderef
}
=item depth
@@ -583,6 +592,7 @@
=cut
sub ls {
+ croak 'ls not supported on this platform' if $^O eq 'MSWin32';
return \&_ls;
}
@@ -619,7 +629,7 @@
no warnings;
local *File::Find::find = sub {
- my ($options) = @_;
+ my ($options) = @ _;
for (my ($k, $v) = each %$options) {
if ($k eq "wanted") {
$their_wanted = $v;
@@ -628,7 +638,7 @@
}
}
};
- $ffr_object->in("/DUMMY"); # boom!
+ $ffr_object->in("/DUMMY"); # boom!
croak "no wanted defined" unless defined $their_wanted;
return $their_wanted;
}
@@ -649,7 +659,7 @@
my $self = shift;
my $pat = shift;
return sub {
- open my $f, "<$_" or return 0;
+ open my $f, "<" . $_ or return 0;
while (<$f>) {
return 1 if /$pat/;
}
@@ -657,6 +667,7 @@
};
}
+
=back
=head2 EXTENDING
@@ -710,7 +721,7 @@
Stonehenge Consulting Services, Inc.
This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.2 or,
+it under the same terms as Perl itself, either Perl version 5.8.2 or,
at your option, any later version of Perl 5 you may have available.
=cut
@@ -718,7 +729,7 @@
## utility subroutines
sub _n {
- my ($prefix, $arg, $value) = @_;
+ my ($prefix, $arg, $value) = @ _;
if ($prefix eq "+") {
$value > $arg;
} elsif ($prefix eq "-") {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/lib/File/Finder.pm
new/File-Finder-1.01/lib/File/Finder.pm
--- old/File-Finder-0.53/lib/File/Finder.pm 2005-04-08 21:46:40.000000000
+0200
+++ new/File-Finder-1.01/lib/File/Finder.pm 2025-08-21 21:39:24.000000000
+0200
@@ -8,7 +8,7 @@
## no exports
-our $VERSION = '0.53';
+our $VERSION = '1.01';
use Carp qw(croak);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Finder-0.53/t/05-steps.t
new/File-Finder-1.01/t/05-steps.t
--- old/File-Finder-0.53/t/05-steps.t 2004-10-07 08:04:12.000000000 +0200
+++ new/File-Finder-1.01/t/05-steps.t 2025-08-21 21:33:59.000000000 +0200
@@ -65,37 +65,41 @@
[fin(sub { -f }, '.')],
'all files even after messing with _ pseudo handle');
-is_deeply([File::Finder->user($<)->in(qw(.))],
- [fin(sub { -o }, '.')],
- 'owned');
-
-is_deeply([File::Finder->not->user($<)->in(qw(.))],
- [fin(sub { not -o }, '.')],
- 'not owned');
-
-is_deeply([File::Finder->group(0+$()->in(qw(.))],
- [fin(sub { $( == (stat)[5] }, '.')],
- 'group');
-
-is_deeply([File::Finder->not->group(0+$()->in(qw(.))],
- [fin(sub { $( != (stat)[5] }, '.')],
- 'not group');
-
-is_deeply([File::Finder->nouser->in(qw(.))],
- [fin(sub { not defined getpwuid((stat)[4]) }, '.')],
- 'nouser');
-
-is_deeply([File::Finder->not->nouser->in(qw(.))],
- [fin(sub { defined getpwuid((stat)[4]) }, '.')],
- 'not nouser');
-
-is_deeply([File::Finder->nogroup->in(qw(.))],
- [fin(sub { not defined getgrgid((stat)[5]) }, '.')],
- 'nogroup');
-
-is_deeply([File::Finder->not->nogroup->in(qw(.))],
- [fin(sub { defined getgrgid((stat)[5]) }, '.')],
- 'not nogroup');
+SKIP: {
+ skip 'user/group tests not supported on this platform', 8 if $^O eq
'MSWin32';
+
+ is_deeply([File::Finder->user($<)->in(qw(.))],
+ [fin(sub { -o }, '.')],
+ 'owned');
+
+ is_deeply([File::Finder->not->user($<)->in(qw(.))],
+ [fin(sub { not -o }, '.')],
+ 'not owned');
+
+ is_deeply([File::Finder->group(0+$()->in(qw(.))],
+ [fin(sub { $( == (stat)[5] }, '.')],
+ 'group');
+
+ is_deeply([File::Finder->not->group(0+$()->in(qw(.))],
+ [fin(sub { $( != (stat)[5] }, '.')],
+ 'not group');
+
+ is_deeply([File::Finder->nouser->in(qw(.))],
+ [fin(sub { not defined getpwuid((stat)[4]) }, '.')],
+ 'nouser');
+
+ is_deeply([File::Finder->not->nouser->in(qw(.))],
+ [fin(sub { defined getpwuid((stat)[4]) }, '.')],
+ 'not nouser');
+
+ is_deeply([File::Finder->nogroup->in(qw(.))],
+ [fin(sub { not defined getgrgid((stat)[5]) }, '.')],
+ 'nogroup');
+
+ is_deeply([File::Finder->not->nogroup->in(qw(.))],
+ [fin(sub { defined getgrgid((stat)[5]) }, '.')],
+ 'not nogroup');
+}
is_deeply([File::Finder->links('-2')->in(qw(.))],
[fin(sub { (stat)[3] < 2 }, '.')],
++++++ README.md ++++++
## Build Results
Current state of perl in openSUSE:Factory is
The current state of perl in the devel project build (devel:languages:perl)
++++++ _scmsync.obsinfo ++++++
mtime: 1755898397
commit: 93548a92b2311ae75219a70f4de5fff40b735f77916de3705eeab5fbe2c36cdd
url: https://src.opensuse.org/perl/perl-File-Finder.git
revision: 93548a92b2311ae75219a70f4de5fff40b735f77916de3705eeab5fbe2c36cdd
projectscmsync: https://src.opensuse.org/perl/_ObsPrj
++++++ build.specials.obscpio ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/.gitignore new/.gitignore
--- old/.gitignore 1970-01-01 01:00:00.000000000 +0100
+++ new/.gitignore 2025-08-26 15:50:31.000000000 +0200
@@ -0,0 +1 @@
+.osc
