Hello community,
here is the log from the commit of package perl-Data-Dump-Streamer for
openSUSE:Factory checked in at 2013-06-28 11:51:56
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Dump-Streamer"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer/perl-Data-Dump-Streamer.changes
2013-06-21 18:31:10.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new/perl-Data-Dump-Streamer.changes
2013-06-28 11:51:57.000000000 +0200
@@ -1,0 +2,6 @@
+Wed Jun 26 11:11:12 UTC 2013 - [email protected]
+
+- add rt_79127.diff and rt_82958.diff from rt.cpan.org
+ to fix build with perl 5.18
+
+-------------------------------------------------------------------
New:
----
rt_79127.diff
rt_82958.diff
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Dump-Streamer.spec ++++++
--- /var/tmp/diff_new_pack.reqVlv/_old 2013-06-28 11:51:57.000000000 +0200
+++ /var/tmp/diff_new_pack.reqVlv/_new 2013-06-28 11:51:57.000000000 +0200
@@ -20,11 +20,13 @@
Version: 2.34
Release: 0
%define cpan_name Data-Dump-Streamer
-Summary: Accurately serialize a data structure as Perl code.
+Summary: Accurately serialize a data structure as Perl code
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Data-Dump-Streamer/
Source:
http://www.cpan.org/authors/id/Y/YV/YVES/%{cpan_name}-%{version}.tar.gz
+Patch0: rt_79127.diff
+Patch1: rt_82958.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
@@ -66,6 +68,8 @@
%prep
%setup -q -n %{cpan_name}-%{version}
+%patch0 -p1
+%patch1 -p1
%build
%{__perl} Build.PL installdirs=vendor optimize="%{optflags}"
++++++ rt_79127.diff ++++++
Binary files Data-Dump-Streamer-2.34-39uVmd/lib/Data/Dump/Streamer.o and
Data-Dump-Streamer-2.34-yhMVdp/lib/Data/Dump/Streamer.o differ
diff -rup Data-Dump-Streamer-2.34-39uVmd/lib/Data/Dump/Streamer.pm
Data-Dump-Streamer-2.34-yhMVdp/lib/Data/Dump/Streamer.pm
--- Data-Dump-Streamer-2.34-39uVmd/lib/Data/Dump/Streamer.pm 2012-06-06
02:47:31.000000000 -0700
+++ Data-Dump-Streamer-2.34-yhMVdp/lib/Data/Dump/Streamer.pm 2012-08-22
23:16:29.000000000 -0700
@@ -3695,9 +3695,9 @@ sub _get_lexicals {
}
my $svo=B::svref_2object($cv);
- my @pl_array = $svo->PADLIST->ARRAY;
+ my @pl_array = eval { $svo->PADLIST->ARRAY };
- my @name_obj = $pl_array[0]->ARRAY;
+ my @name_obj = eval { $pl_array[0]->ARRAY };
my %named;
for my $i ( 0..$#name_obj ) {
++++++ rt_82958.diff ++++++
>From [email protected] Fri Jan 25 15:59:04 2013
X-Spam-Status: No, score=-6.9 tagged_above=-99.9 required=10
tests=[BAYES_00=-1.9, RCVD_IN_DNSWL_HI=-5] autolearn=ham
X-Mailer: git-send-email 1.7.10.4
X-Spam-Flag: NO
Message-ID: <[email protected]>
X-Virus-Scanned: Debian amavisd-new at bestpractical.com
X-Spam-Score: -6.9
Received: from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com
(Postfix) with ESMTP id 28C362404D0 for
<[email protected]>; Fri, 25 Jan 2013
15:59:04 -0500 (EST)
Received: from hipster.bestpractical.com ([127.0.0.1]) by localhost
(hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id
JyLC+XFcuR1P for <[email protected]>; Fri,
25 Jan 2013 15:59:02 -0500 (EST)
Received: from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by
hipster.bestpractical.com (Postfix) with SMTP id 51ED72404C2 for
<[email protected]>; Fri, 25 Jan 2013 15:59:02 -0500 (EST)
Received: (qmail 16400 invoked by uid 103); 25 Jan 2013 20:59:01 -0000
Received: from x16.dev (10.0.100.26) by x1.dev with QMQP; 25 Jan 2013 20:59:01
-0000
Received: from vuizook.err.no (HELO vuizook.err.no) (62.73.197.98) by
16.mx.develooper.com (qpsmtpd/0.84/v0.84-167-g4ed6cab) with ESMTP; Fri, 25 Jan
2013 12:58:58 -0800
Received: from host109-153-125-202.range109-153.btcentralplus.com
([109.153.125.202] helo=nurket) by vuizook.err.no with esmtps
(TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.72) (envelope-from
<[email protected]>) id 1TyqMM-0006y3-Vv for
[email protected]; Fri, 25 Jan 2013 21:58:51 +0100
Received: by nurket (Postfix, from userid 1000) id 65E3F205C6; Fri, 25 Jan 2013
20:58:45 +0000 (GMT)
Delivered-To: [email protected]
Subject: [PATCH] Fix regexp dumping on perl 5.17.6+
Return-Path: <[email protected]>
X-RT-Mail-Extension: data-dump-streamer
X-Original-To: [email protected]
X-Spam-Check-BY: 16.mx.develooper.com
X-Old-Spam-Status: (score 5.9): Yes, score=5.9 required=5.0
tests=FSL_HELO_NON_FQDN_1,HELO_NO_DOMAIN,RCVD_IN_PBL,RCVD_IN_SORBS_DUL,RDNS_DYNAMIC,TO_NO_BRKTS_DYNIP
autolearn=disabled version=3.3.1
Date: Fri, 25 Jan 2013 20:58:45 +0000
X-Spam-Level:
To: [email protected]
From: Dagfinn Ilmari Manns?ker <[email protected]>
X-RT-Original-Encoding: ascii
content-type: text/plain; charset="utf-8"
Content-Length: 1809
---
lib/Data/Dump/Streamer.pm | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/lib/Data/Dump/Streamer.pm b/lib/Data/Dump/Streamer.pm
index a7f16fb..1311eab 100644
--- a/lib/Data/Dump/Streamer.pm
+++ b/lib/Data/Dump/Streamer.pm
@@ -127,7 +127,7 @@ BEGIN {
# As I write this, 5.13.10 doesn't exist so I'm guessing that
# we can begin using the ordinary core function again.
eval q[
- use re qw(regexp_pattern);
+ use re qw(regexp_pattern is_regexp);
*regex= *regexp_pattern;
] or die $@;
}
@@ -135,7 +135,7 @@ BEGIN {
# Perl-5.13.6 through perl-5.13.9 began returning modifier
# flags that weren't yet legal at the time.
eval q[
- use re qw(regexp_pattern);
+ use re qw(regexp_pattern is_regexp);
sub regex {
if (wantarray) {
my ($pat,$mod) = regexp_pattern($_[0]);
@@ -153,11 +153,14 @@ BEGIN {
}
elsif ($]>=5.009004) {
eval q[
- use re qw(regexp_pattern);
+ use re qw(regexp_pattern is_regexp);
*regex= *regexp_pattern;
1;
] or die $@;
}
+ else {
+ eval q[sub is_regexp($) { defined regex($_[0]) }];
+ }
if ($]<=5.008) {
*hidden_keys=sub(\%) { return () };
*legal_keys=sub(\%) { return keys %{$_[0]} };
@@ -2827,7 +2830,7 @@ sub _dump_rv {
$idx=$self->{ref}{$addr};
$type=reftype($item);
$class=blessed($item);
- $class=undef if $class and $class eq 'Regexp' and regex $item;
+ $class=undef if $class and $class eq 'Regexp' and is_regexp $item;
$DEBUG and
printf "_dump_rv %d %s %#x\n",$depth,$name,$addr;
--
1.7.10.4
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
