Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Perl-PrereqScanner-NotQuiteLite
for openSUSE:Factory checked in at 2023-05-04 17:10:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Perl-PrereqScanner-NotQuiteLite (Old)
and
/work/SRC/openSUSE:Factory/.perl-Perl-PrereqScanner-NotQuiteLite.new.1533 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Perl-PrereqScanner-NotQuiteLite"
Thu May 4 17:10:33 2023 rev:3 rq:1084430 version:0.9917
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Perl-PrereqScanner-NotQuiteLite/perl-Perl-PrereqScanner-NotQuiteLite.changes
2022-08-25 15:09:01.601206552 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Perl-PrereqScanner-NotQuiteLite.new.1533/perl-Perl-PrereqScanner-NotQuiteLite.changes
2023-05-04 17:10:53.104474050 +0200
@@ -1,0 +2,9 @@
+Fri Apr 28 03:08:50 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 0.9917
+ see /usr/share/doc/packages/perl-Perl-PrereqScanner-NotQuiteLite/Changes
+
+ 0.9917 2023/04/27
+ - Update Object::Pad support (:isa/:does)
+
+-------------------------------------------------------------------
Old:
----
Perl-PrereqScanner-NotQuiteLite-0.9916.tar.gz
New:
----
Perl-PrereqScanner-NotQuiteLite-0.9917.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Perl-PrereqScanner-NotQuiteLite.spec ++++++
--- /var/tmp/diff_new_pack.QugbRO/_old 2023-05-04 17:10:53.628477118 +0200
+++ /var/tmp/diff_new_pack.QugbRO/_new 2023-05-04 17:10:53.632477141 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Perl-PrereqScanner-NotQuiteLite
#
-# Copyright (c) 2022 SUSE LLC
+# 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
@@ -18,7 +18,7 @@
%define cpan_name Perl-PrereqScanner-NotQuiteLite
Name: perl-Perl-PrereqScanner-NotQuiteLite
-Version: 0.9916
+Version: 0.9917
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Tool to scan your Perl code for its prerequisites
++++++ Perl-PrereqScanner-NotQuiteLite-0.9916.tar.gz ->
Perl-PrereqScanner-NotQuiteLite-0.9917.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-PrereqScanner-NotQuiteLite-0.9916/Changes
new/Perl-PrereqScanner-NotQuiteLite-0.9917/Changes
--- old/Perl-PrereqScanner-NotQuiteLite-0.9916/Changes 2022-04-08
08:13:59.000000000 +0200
+++ new/Perl-PrereqScanner-NotQuiteLite-0.9917/Changes 2023-04-27
17:50:34.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl-PrereqScanner-NotQuiteLite
+0.9917 2023/04/27
+ - Update Object::Pad support (:isa/:does)
+
0.9916 2022/04/08
- Ignore core modules with undef version correctly
- Drop URI::cpan dependency and use Parse::Distname to parse cpan URI
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-PrereqScanner-NotQuiteLite-0.9916/MANIFEST
new/Perl-PrereqScanner-NotQuiteLite-0.9917/MANIFEST
--- old/Perl-PrereqScanner-NotQuiteLite-0.9916/MANIFEST 2022-04-08
08:15:15.000000000 +0200
+++ new/Perl-PrereqScanner-NotQuiteLite-0.9917/MANIFEST 2023-04-27
17:50:51.000000000 +0200
@@ -90,6 +90,7 @@
t/moose/with_variable.t
t/moosex_declare.t
t/object_pad.t
+t/object_pad_attr.t
t/only.t
t/package_variant.t
t/plack.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-PrereqScanner-NotQuiteLite-0.9916/META.json
new/Perl-PrereqScanner-NotQuiteLite-0.9917/META.json
--- old/Perl-PrereqScanner-NotQuiteLite-0.9916/META.json 2022-04-08
08:15:15.000000000 +0200
+++ new/Perl-PrereqScanner-NotQuiteLite-0.9917/META.json 2023-04-27
17:50:51.000000000 +0200
@@ -69,6 +69,6 @@
"url" : "https://github.com/charsbar/Perl-PrereqScanner-NotQuiteLite";
}
},
- "version" : "0.9916",
- "x_serialization_backend" : "JSON::PP version 4.05"
+ "version" : "0.9917",
+ "x_serialization_backend" : "JSON::PP version 4.12"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Perl-PrereqScanner-NotQuiteLite-0.9916/META.yml
new/Perl-PrereqScanner-NotQuiteLite-0.9917/META.yml
--- old/Perl-PrereqScanner-NotQuiteLite-0.9916/META.yml 2022-04-08
08:15:15.000000000 +0200
+++ new/Perl-PrereqScanner-NotQuiteLite-0.9917/META.yml 2023-04-27
17:50:51.000000000 +0200
@@ -34,5 +34,5 @@
perl: '5.008001'
resources:
repository: https://github.com/charsbar/Perl-PrereqScanner-NotQuiteLite
-version: '0.9916'
+version: '0.9917'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-PrereqScanner-NotQuiteLite-0.9916/lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
new/Perl-PrereqScanner-NotQuiteLite-0.9917/lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
---
old/Perl-PrereqScanner-NotQuiteLite-0.9916/lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
2021-09-12 20:21:30.000000000 +0200
+++
new/Perl-PrereqScanner-NotQuiteLite-0.9917/lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
2023-04-27 17:47:58.000000000 +0200
@@ -70,6 +70,15 @@
}
}
}
+ if (ref $token && $token->[1] && $token->[1] eq 'ATTRIBUTE') {
+ while($token->[0] =~ s/:(?:isa|does)\(([^)]+)\)//) {
+ my ($name, $version) = split /\s+/, $1;
+ $version ||= 0;
+ if (is_module_name($name) && is_version($version)) {
+ $c->add($name => $version);
+ }
+ }
+ }
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-PrereqScanner-NotQuiteLite-0.9916/lib/Perl/PrereqScanner/NotQuiteLite.pm
new/Perl-PrereqScanner-NotQuiteLite-0.9917/lib/Perl/PrereqScanner/NotQuiteLite.pm
---
old/Perl-PrereqScanner-NotQuiteLite-0.9916/lib/Perl/PrereqScanner/NotQuiteLite.pm
2022-04-08 07:37:21.000000000 +0200
+++
new/Perl-PrereqScanner-NotQuiteLite-0.9917/lib/Perl/PrereqScanner/NotQuiteLite.pm
2023-04-27 17:49:41.000000000 +0200
@@ -6,7 +6,7 @@
use Perl::PrereqScanner::NotQuiteLite::Context;
use Perl::PrereqScanner::NotQuiteLite::Util;
-our $VERSION = '0.9916';
+our $VERSION = '0.9917';
our @BUNDLED_PARSERS = qw/
Aliased AnyMoose Autouse Catalyst ClassAccessor
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Perl-PrereqScanner-NotQuiteLite-0.9916/t/object_pad_attr.t
new/Perl-PrereqScanner-NotQuiteLite-0.9917/t/object_pad_attr.t
--- old/Perl-PrereqScanner-NotQuiteLite-0.9916/t/object_pad_attr.t
1970-01-01 01:00:00.000000000 +0100
+++ new/Perl-PrereqScanner-NotQuiteLite-0.9917/t/object_pad_attr.t
2023-04-27 17:47:58.000000000 +0200
@@ -0,0 +1,396 @@
+use strict;
+use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../";
+use Test::More;
+use t::Util;
+
+test('basic class', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Foo;
+END
+
+test('basic class version', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Foo 1.00;
+END
+
+test('basic role', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo;
+END
+
+test('basic role version', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo 1.00;
+END
+
+# simple :isa/:does
+
+test('basic class :isa', <<'END', {'Object::Pad' => 0, 'Bar' => 0});
+use Object::Pad;
+
+class Foo :isa(Bar);
+END
+
+test('basic class version :isa', <<'END', {'Object::Pad' => 0, 'Bar' => 0});
+use Object::Pad;
+
+class Foo 1.00 :isa(Bar);
+END
+
+test('basic class :isa base version', <<'END', {'Object::Pad' => 0, 'Bar' =>
'2.00'});
+use Object::Pad;
+
+class Foo :isa(Bar 2.00);
+END
+
+test('basic class version :isa base version', <<'END', {'Object::Pad' => 0,
'Bar' => '2.00'});
+use Object::Pad;
+
+class Foo 1.00 :isa(Bar 2.00);
+END
+
+test('basic class :does', <<'END', {'Object::Pad' => 0, 'Bar' => 0, 'Baz' =>
0});
+use Object::Pad;
+
+class Foo :does(Bar) :does(Baz);
+END
+
+test('basic class version :does', <<'END', {'Object::Pad' => 0, 'Bar' => 0,
'Baz' => 0});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar) :does(Baz);
+END
+
+test('basic class :does role version', <<'END', {'Object::Pad' => 0, 'Bar' =>
'2.00', 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo :does(Bar 2.00) :does(Baz 3.00);
+END
+
+test('basic class version :does role version', <<'END', {'Object::Pad' => 0,
'Bar' => '2.00', 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar 2.00) :does(Baz 3.00);
+END
+
+test('basic class :does role, role version', <<'END', {'Object::Pad' => 0,
'Bar' => 0, 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo :does(Bar) :does(Baz 3.00);
+END
+
+test('basic class version :does role, role version', <<'END', {'Object::Pad'
=> 0, 'Bar' => 0, 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar) :does(Baz 3.00);
+END
+
+# both :isa and :does
+
+test('basic class :does role version :isa base', <<'END', {'Object::Pad' => 0,
'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo :does(Bar 2.00) :does(Baz 3.00) :isa(Quux 4.00);
+END
+
+test('basic class version :does role version :isa base', <<'END',
{'Object::Pad' => 0, 'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar 2.00) :does(Baz 3.00) :isa(Quux 4.00);
+END
+
+test('basic class :isa base :does role version', <<'END', {'Object::Pad' => 0,
'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo :isa(Quux 4.00) :does(Bar 2.00) :does(Baz 3.00);
+END
+
+test('basic class version :isa base :does role version', <<'END',
{'Object::Pad' => 0, 'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo 1.00 :isa(Quux 4.00) :does(Bar 2.00) :does(Baz 3.00);
+END
+
+# class/role attributes
+
+test('basic class :does role version :isa base :attr', <<'END', {'Object::Pad'
=> 0, 'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo :does(Bar 2.00) :does(Baz 3.00) :isa(Quux 4.00) :repr(native),
:repr(default), :strict(params);
+END
+
+test('basic class version :does role version :isa base :attr', <<'END',
{'Object::Pad' => 0, 'Bar' => '2.00', 'Baz' => '3.00', 'Quux' => '4.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar 2.00) :does(Baz 3.00) :isa(Quux 4.00) :repr(native),
:repr(default), :strict(params)
+END
+
+test('basic role :attr', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo :compat(invokable);
+END
+
+test('basic role version :attr', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo 1.00 :compat(invokable);
+END
+
+# internal classes/roles
+
+test('basic class version :isa internal class', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Bar;
+
+class Foo 1.00 :isa(Bar);
+END
+
+test('basic class :isa internal class version', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Bar;
+
+class Foo :isa(Bar 2.00);
+END
+
+test('basic class version :isa internal class version', <<'END',
{'Object::Pad' => 0});
+use Object::Pad;
+
+class Bar;
+
+class Foo 1.00 :isa(Bar 2.00);
+END
+
+test('basic class version :does internal role', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Bar;
+
+class Foo 1.00 :does(Bar);
+END
+
+test('basic class :does internal role version', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Bar;
+
+class Foo :does(Bar 2.00);
+END
+
+test('basic class version :does internal role version', <<'END',
{'Object::Pad' => 0});
+use Object::Pad;
+
+role Bar;
+
+class Foo 1.00 :does(Bar 2.00);
+END
+
+# class/role blocks ####
+
+test('basic class {}', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Foo {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version {}', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+class Foo 1.00 {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic role {}', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic role version {}', <<'END', {'Object::Pad' => 0});
+use Object::Pad;
+
+role Foo 1.00 {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+# simple :isa/:does
+
+test('basic class :isa {}', <<'END', {'Object::Pad' => 0, 'Bar' => 0});
+use Object::Pad;
+
+class Foo :isa(Bar) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version :isa {}', <<'END', {'Object::Pad' => 0, 'Bar' => 0});
+use Object::Pad;
+
+class Foo 1.00 :isa(Bar) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class :isa base version {}', <<'END', {'Object::Pad' => 0, 'Bar'
=> '2.00'});
+use Object::Pad;
+
+class Foo :isa(Bar 2.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version :isa base version {}', <<'END', {'Object::Pad' => 0,
'Bar' => '2.00'});
+use Object::Pad;
+
+class Foo 1.00 :isa(Bar 2.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class :does {}', <<'END', {'Object::Pad' => 0, 'Bar' => 0, 'Baz'
=> 0});
+use Object::Pad;
+
+class Foo :does(Bar) :does(Baz) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version :does {}', <<'END', {'Object::Pad' => 0, 'Bar' => 0,
'Baz' => 0});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar) :does(Baz) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class :does role version {}', <<'END', {'Object::Pad' => 0, 'Bar'
=> '2.00', 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo :does(Bar 2.00) :does(Baz 3.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version :does role version {}', <<'END', {'Object::Pad' =>
0, 'Bar' => '2.00', 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar 2.00) :does(Baz 3.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class :does role, role version {}', <<'END', {'Object::Pad' => 0,
'Bar' => 0, 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo :does(Bar) :does(Baz 3.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+test('basic class version :does role, role version {}', <<'END',
{'Object::Pad' => 0, 'Bar' => 0, 'Baz' => '3.00'});
+use Object::Pad;
+
+class Foo 1.00 :does(Bar) :does(Baz 3.00) {
+ has $x :param = 0;
+ has $y :param = 0;
+
+ method move ($dX, $dY) {
+ $x += $dX;
+ $y += $dY;
+ }
+}
+END
+
+done_testing;
