import perl-Carp-1.42-396.el8

2019-05-07 07:16:48 -04:00 · 2019-05-07 07:16:48 -04:00 · 26bc4cb4e5
commit 26bc4cb4e5
6 changed files with 500 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1 @@
+SOURCES/Carp-1.38.tar.gz
--- a/.perl-Carp.metadata
+++ b/.perl-Carp.metadata
@ -0,0 +1 @@
+6ad4e281ea94c3065c54237b03e1740b879fb6e5 SOURCES/Carp-1.38.tar.gz
--- a/SOURCES/Carp-1.38-Upgrade-to-1.40.patch
+++ b/SOURCES/Carp-1.38-Upgrade-to-1.40.patch
@ -0,0 +1,118 @@
+diff --git a/Changes b/Changes
+index b55b49f..dca6a52 100644
+--- a/Changes
+++ b/Changes
+@@ -1,4 +1,12 @@
+ 
+version 1.40; 2016-03-10
+  * Get arg_string.t to compile in perl v5.6
+  * Add information for how to contribute to Carp.
+
+version 1.39; 2016-03-06
+  * bugfix: longmess() should return the error in scalar context
+  (CPANRT#107225)
+
+ version 1.38; 2015-11-06
+   * stable release of changes since v1.36
+ 
+diff --git a/lib/Carp.pm b/lib/Carp.pm
+index 9421c74..92f8866 100644
+--- a/lib/Carp.pm
+++ b/lib/Carp.pm
+@@ -87,7 +87,7 @@ BEGIN {
+     }
+ }
+ 
+-our $VERSION = '1.38';
+our $VERSION = '1.40';
+ $VERSION =~ tr/_//d;
+ 
+ our $MaxEvalLen = 0;
+@@ -445,7 +445,9 @@ sub long_error_loc {
+ }
+ 
+ sub longmess_heavy {
+-    return @_ if ref( $_[0] );    # don't break references as exceptions
+    if ( ref( $_[0] ) ) {   # don't break references as exceptions
+        return wantarray ? @_ : $_[0];
+    }
+     my $i = long_error_loc();
+     return ret_backtrace( $i, @_ );
+ }
+@@ -906,6 +908,12 @@ call die() or warn(), as appropriate.
+ L<Carp::Always>,
+ L<Carp::Clan>
+ 
+=head1 CONTRIBUTING
+
+L<Carp> is maintained by the perl 5 porters as part of the core perl 5
+version control repository. Please see the L<perlhack> perldoc for how to
+submit patches and contribute to it.
+
+ =head1 AUTHOR
+ 
+ The Carp module first appeared in Larry Wall's perl 5.000 distribution.
+diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
+index 91a42d1..b05d758 100644
+--- a/lib/Carp/Heavy.pm
+++ b/lib/Carp/Heavy.pm
+@@ -2,7 +2,7 @@ package Carp::Heavy;
+ 
+ use Carp ();
+ 
+-our $VERSION = '1.38';
+our $VERSION = '1.40';
+ $VERSION =~ tr/_//d;
+ 
+ # Carp::Heavy was merged into Carp in version 1.12.  Any mismatched versions
+diff --git a/t/Carp.t b/t/Carp.t
+index a18e3b4..9ecdf88 100644
+--- a/t/Carp.t
+++ b/t/Carp.t
+@@ -3,7 +3,7 @@ no warnings "once";
+ use Config;
+ 
+ use IPC::Open3 1.0103 qw(open3);
+-use Test::More tests => 65;
+use Test::More tests => 66;
+ 
+ sub runperl {
+     my(%args) = @_;
+@@ -39,6 +39,24 @@ BEGIN {
+   );
+ }
+ 
+package MyClass;
+
+sub new { return bless +{ field => ['value1', 'SecondVal'] }; }
+
+package main;
+
+{
+    my $err = Carp::longmess(MyClass->new);
+
+    # See:
+    # https://rt.cpan.org/Public/Bug/Display.html?id=107225
+    is_deeply(
+        $err->{field},
+        ['value1', 'SecondVal',],
+        "longmess returns sth meaningful in scalar context when passed a ref.",
+    );
+}
+
+ {
+     local $SIG{__WARN__} = sub {
+         like $_[0], qr/ok (\d+)\n at.+\b(?i:carp\.t) line \d+\.$/, 'ok 2\n';
+diff --git a/t/arg_string.t b/t/arg_string.t
+index 42b43b1..dbd2e6e 100644
+--- a/t/arg_string.t
+++ b/t/arg_string.t
+@@ -15,7 +15,7 @@ my $e9 = sprintf "%02x", (($] ge 5.007_003)
+                           : ((ord("A") == 193)
+                              ? 0x51
+                              : 0xE9));
+-my $chr_e9 = chr utf8::unicode_to_native(0xe9);
+my $chr_e9 = chr eval "0x$e9";
+ my $nl_as_hex = sprintf "%x", ord("\n");
+ 
+ like lm(3), qr/main::lm\(3\)/;
--- a/SOURCES/Carp-1.40-Upgrade-to-1.42.patch
+++ b/SOURCES/Carp-1.40-Upgrade-to-1.42.patch
@ -0,0 +1,128 @@
+From 7cdc0cd3cf5f9fd6459daa746db8f647c14ef9fe Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Thu, 11 May 2017 08:43:33 +0200
+Subject: [PATCH] Upgrade to 1.42
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Unbundled from perl-5.25.12.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/Carp.pm       |  6 +++---
+ lib/Carp/Heavy.pm |  2 +-
+ t/Carp.t          | 13 ++++++++++++-
+ t/arg_string.t    | 10 +++++++++-
+ 4 files changed, 25 insertions(+), 6 deletions(-)
+
+diff --git a/lib/Carp.pm b/lib/Carp.pm
+index 92f8866..05052b9 100644
+--- a/lib/Carp.pm
+++ b/lib/Carp.pm
+@@ -87,7 +87,7 @@ BEGIN {
+     }
+ }
+ 
+-our $VERSION = '1.40';
+our $VERSION = '1.42';
+ $VERSION =~ tr/_//d;
+ 
+ our $MaxEvalLen = 0;
+@@ -474,7 +474,7 @@ sub ret_backtrace {
+         eval {
+             CORE::die;
+         };
+-        if($@ =~ /^Died at .*(, <.*?> line \d+).$/ ) {
+        if($@ =~ /^Died at .*(, <.*?> (?:line|chunk) \d+).$/ ) {
+             $mess .= $1;
+         }
+     }
+@@ -636,7 +636,7 @@ Carp - alternative warn and die for modules
+ 
+     # cluck, longmess and shortmess not exported by default
+     use Carp qw(cluck longmess shortmess);
+-    cluck "This is how we got here!";
+    cluck "This is how we got here!"; # warn with stack backtrace
+     $long_message   = longmess( "message from cluck() or confess()" );
+     $short_message  = shortmess( "message from carp() or croak()" );
+ 
+diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
+index b05d758..f9c584a 100644
+--- a/lib/Carp/Heavy.pm
+++ b/lib/Carp/Heavy.pm
+@@ -2,7 +2,7 @@ package Carp::Heavy;
+ 
+ use Carp ();
+ 
+-our $VERSION = '1.40';
+our $VERSION = '1.42';
+ $VERSION =~ tr/_//d;
+ 
+ # Carp::Heavy was merged into Carp in version 1.12.  Any mismatched versions
+diff --git a/t/Carp.t b/t/Carp.t
+index 9ecdf88..65daed7 100644
+--- a/t/Carp.t
+++ b/t/Carp.t
+@@ -3,7 +3,7 @@ no warnings "once";
+ use Config;
+ 
+ use IPC::Open3 1.0103 qw(open3);
+-use Test::More tests => 66;
+use Test::More tests => 67;
+ 
+ sub runperl {
+     my(%args) = @_;
+@@ -442,6 +442,16 @@ $@ =~ s/\n.*//; # just check first line
+ is $@, "heek at ".__FILE__." line ".(__LINE__-2).", <DATA> line 2.\n",
+     'last handle line num is mentioned';
+ 
+# [cpan #100183]
+{
+    local $/ = \6;
+    <XD::DATA>;
+    eval { croak 'jeek' };
+    $@ =~ s/\n.*//; # just check first line
+    is $@, "jeek at ".__FILE__." line ".(__LINE__-2).", <DATA> chunk 3.\n",
+        'last handle chunk num is mentioned';
+}
+
+ SKIP:
+ {
+     skip "IPC::Open3::open3 needs porting", 1 if $Is_VMS;
+@@ -531,3 +541,4 @@ __DATA__
+ 1
+ 2
+ 3
+abcdefghijklmnopqrstuvwxyz
+diff --git a/t/arg_string.t b/t/arg_string.t
+index dbd2e6e..dc70f43 100644
+--- a/t/arg_string.t
+++ b/t/arg_string.t
+@@ -1,6 +1,8 @@
+ use warnings;
+ use strict;
+ 
+# confirm that stack args are displayed correctly by longmess()
+
+ use Test::More tests => 32;
+ 
+ use Carp ();
+@@ -22,7 +24,13 @@ like lm(3), qr/main::lm\(3\)/;
+ like lm(substr("3\x{2603}", 0, 1)), qr/main::lm\(3\)/;
+ like lm(-3), qr/main::lm\(-3\)/;
+ like lm(-3.5), qr/main::lm\(-3\.5\)/;
+-like lm(-3.5e100), qr/main::lm\(-3\.5[eE]\+?100\)/;
+like lm(-3.5e30),
+            qr/main::lm\(
+              (
+                -3500000000000000000000000000000
+              | -3\.5[eE]\+?0?30
+              )
+              \) /x;
+ like lm(""), qr/main::lm\(""\)/;
+ like lm("foo"), qr/main::lm\("foo"\)/;
+ like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/;
+-- 
+2.9.3
+
--- a/SOURCES/Carp-1.42-Fix-RT-52610-Carp-Do-not-crash-when-reading-DB-args.patch
+++ b/SOURCES/Carp-1.42-Fix-RT-52610-Carp-Do-not-crash-when-reading-DB-args.patch
@ -0,0 +1,82 @@
+From b5ad485cc167b3b6aa43f83aa92bbf8b8811cb42 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Fri, 20 Apr 2018 10:20:55 +0200
+Subject: [PATCH] Fix RT #52610: Carp: Do not crash when reading @DB::args
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported from perl after 5.27.8. The unreliable test was
+later deleted in a77eff3c and the comments rephrased in 02c84d7:
+
+commit 4764858cb80e76fdba33cc1b3be8fcdef26df754
+Author: Pali <pali@cpan.org>
+Date:   Wed Jan 31 22:43:46 2018 +0100
+
+    Fix RT #52610: Carp: Do not crash when reading @DB::args
+
+    Trying to read values from array @DB::args can lead to perl fatal error
+    "Bizarre copy of ARRAY in scalar assignment". But missing, incomplete or
+    possible incorrect value in @DB::args is not a fatal error for Carp.
+
+    Carp is primary used for reporting warnings and errors from other
+    modules, so it should not crash perl when trying to print error message.
+
+    This patch safely iterates all elements of @DB::args array via eval { }
+    block and replace already freed scalars for Carp usage by string
+    "** argument not available anymore **".
+
+    This prevent crashing perl and allows to use Carp module. It it not a
+    proper fix but rather workaround for Carp module. At least it allows to
+    safely use Carp.
+
+    Patch amended by Yves Orton
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/Carp.pm | 22 ++++++++++++++++------
+ 1 file changed, 16 insertions(+), 6 deletions(-)
+
+diff --git a/lib/Carp.pm b/lib/Carp.pm
+index 05052b9..60b2469 100644
+--- a/lib/Carp.pm
+++ b/lib/Carp.pm
+@@ -203,11 +203,22 @@ sub caller_info {
+ 
+     my $sub_name = Carp::get_subname( \%call_info );
+     if ( $call_info{has_args} ) {
+-        my @args;
+-        if (CALLER_OVERRIDE_CHECK_OK && @DB::args == 1
+-            && ref $DB::args[0] eq ref \$i
+-            && $DB::args[0] == \$i ) {
+-            @DB::args = ();    # Don't let anyone see the address of $i
+        # guard our serialization of the stack from stack refcounting bugs
+        my @args = map {
+                my $arg;
+                local $@= $@;
+                eval {
+                    $arg = $_;
+                    1;
+                } or do {
+                    $arg = '** argument not available anymore **';
+                };
+                $arg;
+            } @DB::args;
+        if (CALLER_OVERRIDE_CHECK_OK && @args == 1
+            && ref $args[0] eq ref \$i
+            && $args[0] == \$i ) {
+            @args = ();    # Don't let anyone see the address of $i
+             local $@;
+             my $where = eval {
+                 my $func    = $cgc or return '';
+@@ -226,7 +237,6 @@ sub caller_info {
+                 = "** Incomplete caller override detected$where; \@DB::args were not set **";
+         }
+         else {
+-            @args = @DB::args;
+             my $overflow;
+             if ( $MaxArgNums and @args > $MaxArgNums )
+             {    # More than we want to show?
+-- 
+2.14.3
+
--- a/SPECS/perl-Carp.spec
+++ b/SPECS/perl-Carp.spec
@ -0,0 +1,170 @@
+%global cpan_version 1.38
+
+Name:           perl-Carp
+Version:        1.42
+Release:        396%{?dist}
+Summary:        Alternative warn and die for modules
+License:        GPL+ or Artistic
+URL:            http://search.cpan.org/dist/Carp/
+Source0:        http://www.cpan.org/authors/id/R/RJ/RJBS/Carp-%{cpan_version}.tar.gz
+# Unbundled from perl 5.24.0
+Patch0:         Carp-1.38-Upgrade-to-1.40.patch
+# Unbundled from perl 5.25.12
+Patch1:         Carp-1.40-Upgrade-to-1.42.patch
+# Prevent from some stack-not-ref-counted crashes in Carp, RT#52610,
+# in perl upstream after 5.27.8
+Patch2:         Carp-1.42-Fix-RT-52610-Carp-Do-not-crash-when-reading-DB-args.patch
+BuildArch:      noarch
+BuildRequires:  make
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires:  perl(warnings)
+BuildRequires:  perl(strict)
+# Run-time:
+BuildRequires:  perl(Exporter)
+# Tests:
+BuildRequires:  perl(B)
+BuildRequires:  perl(Config)
+BuildRequires:  perl(Data::Dumper)
+# IPC::Open3  >= 1.0103 in reality, but the provides is 2-digit number only
+BuildRequires:  perl(IPC::Open3)
+BuildRequires:  perl(overload)
+BuildRequires:  perl(Test::More) >= 0.47
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+# Do not export private DB module stub
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(DB\\)
+
+%description
+The Carp routines are useful in your own modules because they act like
+die() or warn(), but with a message which is more likely to be useful to a
+user of your module. In the case of cluck, confess, and longmess that
+context is a summary of every call in the call-stack. For a shorter message
+you can use carp or croak which report the error as being from where your
+module was called. There is no guarantee that that is where the error was,
+but it is a good educated guess.
+
+%prep
+%setup -q -n Carp-%{cpan_version}
+%patch0 -p1
+%patch1 -p1
+%patch2 -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%files
+%doc Changes README
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Fri Apr 20 2018 Petr Pisar <ppisar@redhat.com> - 1.42-396
+- Prevent from some stack-not-ref-counted crashes in Carp (RT#52610)
+
+* Thu Feb 08 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.42-395
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.42-394
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Sat Jun 03 2017 Jitka Plesnikova <jplesnik@redhat.com> - 1.42-393
+- Perl 5.26 rebuild
+
+* Thu May 11 2017 Petr Pisar <ppisar@redhat.com> - 1.42-1
+- Upgrade to 1.42 as provided in perl-5.25.12
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.40-366
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Sat May 14 2016 Jitka Plesnikova <jplesnik@redhat.com> - 1.40-365
+- Increase release to favour standalone package
+
+* Wed May 11 2016 Jitka Plesnikova <jplesnik@redhat.com> - 1.40-1
+- 1.40 bump in order to dual-live with perl 5.24
+
+* Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 1.38-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Tue Nov 10 2015 Petr Pisar <ppisar@redhat.com> - 1.38-1
+- 1.38 bump
+
+* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.36-346
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Thu Jun 04 2015 Jitka Plesnikova <jplesnik@redhat.com> - 1.36-345
+- Increase release to favour standalone package
+
+* Wed Jun 03 2015 Jitka Plesnikova <jplesnik@redhat.com> - 1.36-2
+- Perl 5.22 rebuild
+
+* Fri Mar 20 2015 Petr Pisar <ppisar@redhat.com> - 1.36-1
+- 1.36 bump
+
+* Mon Mar 16 2015 Petr Pisar <ppisar@redhat.com> - 1.35-1
+- 1.35 bump
+
+* Wed Sep 03 2014 Jitka Plesnikova <jplesnik@redhat.com> - 1.33.01-310
+- Increase release to favour standalone package
+
+* Tue Aug 26 2014 Jitka Plesnikova <jplesnik@redhat.com> - 1.33.01-3
+- Perl 5.20 rebuild
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.33.01-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Fri Apr 04 2014 Petr Pisar <ppisar@redhat.com> - 1.33.01-1
+- 1.3301 bump
+
+* Wed Mar 26 2014 Petr Pisar <ppisar@redhat.com> - 1.33-1
+- 1.33 bump
+
+* Tue Sep 10 2013 Petr Pisar <ppisar@redhat.com> - 1.32-1
+- 1.32 bump
+
+* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.26-245
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Fri Jul 12 2013 Petr Pisar <ppisar@redhat.com> - 1.26-244
+- Link minimal build-root packages against libperl.so explicitly
+
+* Tue Apr 30 2013 Petr Pisar <ppisar@redhat.com> - 1.26-243
+- Increase release number to supersede perl sub-package (bug #957931)
+
+* Thu Feb 14 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.26-241
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
+
+* Mon Aug 13 2012 Marcela Mašláňová <mmaslano@redhat.com> - 1.26-240
+- Bump release to override sub-package from perl.spec
+
+* Fri Jul 20 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.26-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Thu Jun 28 2012 Petr Pisar <ppisar@redhat.com> - 1.26-2
+- Perl 5.16 rebuild
+
+* Tue Jun 19 2012 Petr Pisar <ppisar@redhat.com> - 1.26-1
+- 1.26 bump
+
+* Wed Jun 06 2012 Petr Pisar <ppisar@redhat.com> - 1.25-2
+- Perl 5.16 rebuild
+
+* Thu Mar 15 2012 Petr Pisar <ppisar@redhat.com> - 1.25-1
+- 1.25 bump
+
+* Fri Jan 13 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.22-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
+
+* Wed Sep 07 2011 Petr Pisar <ppisar@redhat.com> 1.22-1
+- Specfile autogenerated by cpanspec 1.78.
+- Remove BuildRoot and defattr code from spec
+- Do not export private module DB
				`@ -0,0 +1 @@`
				`6ad4e281ea94c3065c54237b03e1740b879fb6e5 SOURCES/Carp-1.38.tar.gz`