Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Devel-Caller for
openSUSE:Factory checked in at 2023-04-20 16:26:02
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-Caller (Old)
and /work/SRC/openSUSE:Factory/.perl-Devel-Caller.new.2023 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-Caller"
Thu Apr 20 16:26:02 2023 rev:7 rq:1080875 version:2.07
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Devel-Caller/perl-Devel-Caller.changes
2013-06-09 16:40:06.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Devel-Caller.new.2023/perl-Devel-Caller.changes
2023-04-20 16:26:04.962946239 +0200
@@ -1,0 +2,10 @@
+Wed Apr 12 03:07:08 UTC 2023 - Tina Müller <[email protected]>
+
+- updated to 2.07
+ see /usr/share/doc/packages/perl-Devel-Caller/Changes
+
+ 2.07 Tuesday 11th April, 2023
+ Fix compatibility with bleadperl
https://rt.cpan.org/Public/Bug/Display.html?id=144051
+ Small Pod and Distribution cleanups contributed by Tom Hukins based
on other rt.cpan tickets https://github.com/richardc/perl-devel-caller/pull/1
+
+-------------------------------------------------------------------
Old:
----
Devel-Caller-2.06.tar.gz
New:
----
Devel-Caller-2.07.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Devel-Caller.spec ++++++
--- /var/tmp/diff_new_pack.Em3Rcv/_old 2023-04-20 16:26:05.342948033 +0200
+++ /var/tmp/diff_new_pack.Em3Rcv/_new 2023-04-20 16:26:05.358948109 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Devel-Caller
#
-# Copyright (c) 2013 SUSE LINUX Products 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
@@ -12,20 +12,18 @@
# 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 Devel-Caller
Name: perl-Devel-Caller
-Version: 2.06
+Version: 2.07
Release: 0
-%define cpan_name Devel-Caller
-Summary: meatier versions of C<caller>
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Devel-Caller/
-Source:
http://www.cpan.org/authors/id/R/RC/RCLAMP/%{cpan_name}-%{version}.tar.gz
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
+License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Meatier versions of caller
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/R/RC/RCLAMP/%{cpan_name}-%{version}.tar.gz
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(PadWalker) >= 0.08
@@ -35,36 +33,36 @@
%description
* caller_cv($level)
- 'caller_cv' gives you the coderef of the subroutine being invoked at the
- call frame indicated by the value of $level
+'caller_cv' gives you the coderef of the subroutine being invoked at the
+call frame indicated by the value of $level
* caller_args($level)
- Returns the arguments passed into the caller at level $level
+Returns the arguments passed into the caller at level $level
* caller_vars( $level, $names )
=item called_with($level, $names)
- 'called_with' returns a list of references to the original arguments to
- the subroutine at $level. if $names is true, the names of the variables
- will be returned instead
+'called_with' returns a list of references to the original arguments to the
+subroutine at $level. if $names is true, the names of the variables will be
+returned instead
- constants are returned as 'undef' in both cases
+constants are returned as 'undef' in both cases
* called_as_method($level)
- 'called_as_method' returns true if the subroutine at $level was called as
- a method.
+'called_as_method' returns true if the subroutine at $level was called as a
+method.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+%make_build
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -72,7 +70,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes
%changelog
++++++ Devel-Caller-2.06.tar.gz -> Devel-Caller-2.07.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-Caller-2.06/Changes
new/Devel-Caller-2.07/Changes
--- old/Devel-Caller-2.06/Changes 2013-01-16 11:27:17.000000000 +0100
+++ new/Devel-Caller-2.07/Changes 2023-04-11 12:38:21.000000000 +0200
@@ -1,3 +1,7 @@
+2.07 Tuesday 11th April, 2023
+ Fix compatibility with bleadperl
https://rt.cpan.org/Public/Bug/Display.html?id=144051
+ Small Pod and Distribution cleanups contributed by Tom Hukins based on
other rt.cpan tickets https://github.com/richardc/perl-devel-caller/pull/1
+
2.06 Wednesday 16th January, 2013
Corrected some pod syntax RT#56456
Handle the new padrange op added in 5.17 RT#81704
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-Caller-2.06/META.json
new/Devel-Caller-2.07/META.json
--- old/Devel-Caller-2.06/META.json 2013-01-16 11:27:56.000000000 +0100
+++ new/Devel-Caller-2.07/META.json 2023-04-11 12:39:01.000000000 +0200
@@ -4,13 +4,13 @@
"Richard Clamp <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, 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" : "Devel-Caller",
"no_index" : {
@@ -38,5 +38,16 @@
}
},
"release_status" : "stable",
- "version" : "2.06"
+ "resources" : {
+ "license" : [
+ "http://dev.perl.org/licenses/";
+ ],
+ "repository" : {
+ "type" : "git",
+ "url" : "https://github.com/richardc/perl-devel-caller.git";,
+ "web" : "https://github.com/richardc/perl-devel-caller";
+ }
+ },
+ "version" : "2.07",
+ "x_serialization_backend" : "JSON::PP version 2.97001"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-Caller-2.06/META.yml
new/Devel-Caller-2.07/META.yml
--- old/Devel-Caller-2.06/META.yml 2013-01-16 11:27:56.000000000 +0100
+++ new/Devel-Caller-2.07/META.yml 2023-04-11 12:39:00.000000000 +0200
@@ -3,21 +3,25 @@
author:
- 'Richard Clamp <[email protected]>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version
2.120921'
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Devel-Caller
no_index:
directory:
- t
- inc
requires:
- PadWalker: 0.08
- Test::More: 0
-version: 2.06
+ PadWalker: '0.08'
+ Test::More: '0'
+resources:
+ license: http://dev.perl.org/licenses/
+ repository: https://github.com/richardc/perl-devel-caller.git
+version: '2.07'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-Caller-2.06/Makefile.PL
new/Devel-Caller-2.07/Makefile.PL
--- old/Devel-Caller-2.06/Makefile.PL 2013-01-16 11:04:37.000000000 +0100
+++ new/Devel-Caller-2.07/Makefile.PL 2023-04-11 12:38:21.000000000 +0200
@@ -11,5 +11,16 @@
PREREQ_PM => {
'Test::More' => 0,
'PadWalker' => '0.08'
- }
+ },
+ META_MERGE => {
+ 'meta-spec' => { version => 2 },
+ resources => {
+ repository => {
+ type => 'git',
+ url => 'https://github.com/richardc/perl-devel-caller.git',
+ web => 'https://github.com/richardc/perl-devel-caller',
+ },
+ license => 'http://dev.perl.org/licenses/',
+ },
+ },
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-Caller-2.06/lib/Devel/Caller.pm
new/Devel-Caller-2.07/lib/Devel/Caller.pm
--- old/Devel-Caller-2.06/lib/Devel/Caller.pm 2013-01-16 11:27:17.000000000
+0100
+++ new/Devel-Caller-2.07/lib/Devel/Caller.pm 2023-04-11 12:38:21.000000000
+0200
@@ -7,7 +7,7 @@
use base qw( Exporter );
use 5.008;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
XSLoader::load __PACKAGE__, $VERSION;
our @EXPORT_OK = qw( caller_cv caller_args caller_vars called_with
called_as_method );
@@ -83,10 +83,28 @@
$op = $op->sibling;
}
- if ($op->name =~ "pad(sv|av|hv)") {
+ if ($op->name =~ /padsv_store/) {
+ # A padsv_store is a 5.37 optimization that combines a padsv and
+ # an sassign into a single op. The new op steals the targ slot
+ # of the original padsv.
+ #
+ # https://github.com/Perl/perl5/commit/9fdd7fc
+ print "Copying from pad\n" if $DEBUG;
+ if ($want_names) {
+ push @return, $padn->ARRAYelt( $op->targ )->PVX;
+ }
+ else {
+ push @return, $padv->ARRAYelt( $op->targ )->object_2svref;
+ }
+ next;
+ }
+ elsif ($op->name =~ "pad(sv|av|hv)") {
if ($op->next->next->name eq "sassign") {
print "sassign in two ops, this is the target skipping\n" if
$DEBUG;
next;
+ } elsif ($op->next->name eq "padsv_store") {
+ print "padsv_store in one op, this is the target, skipping\n"
if $DEBUG;
+ next;
}
print "Copying from pad\n" if $DEBUG;
@@ -145,6 +163,9 @@
if ($op->next->next->name eq "sassign") {
print "sassign in two ops, this is the target, skipping\n" if
$DEBUG;
next;
+ } elsif ($op->next->name eq "padsv_store") {
+ print "padsv_store in one op, this is the target, skipping\n"
if $DEBUG;
+ next;
}
push @return, $want_names ? undef : $op->sv;
@@ -229,7 +250,7 @@
All of these routines are susceptible to the same limitations as
C<caller> as described in L<perlfunc/caller>
-The deparsing of the optree perfomed by called_with is fairly simple-minded
+The deparsing of the optree performed by called_with is fairly simple-minded
and so a bit flaky.
=over
@@ -253,7 +274,7 @@
=head1 COPYRIGHT
-Copyright (c) 2002, 2003, 2006, 2007, 2008, 2010, 2013 Richard Clamp.
+Copyright (c) 2002, 2003, 2006, 2007, 2008, 2010, 2013, 2023 Richard Clamp.
All Rights Reserved.
This module is free software. It may be used, redistributed and/or
