Accepting request 61185 from devel:languages:perl

Accepted submit request 61185 from user mlschroe

OBS-URL: https://build.opensuse.org/request/show/61185
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=59

perl-5.12.3-RC1.tar.bz2

@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:5a82268951b0957a823f9104e3077e64aae5b856b0bba76ea7becfdbc2d9fe20
-size 12045720

perl-5.12.3.tar.bz2

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:7e3ce3f19f2290c2a2a43a98bcf8cb0ccb69b652d67ddc629544339edc6c7343
+size 12041247

perl-cgi-injection.diff

@@ -1,39 +0,0 @@
---- ./cpan/CGI/lib/CGI.pm.orig	2010-05-07 13:34:10.000000000 +0000
-+++ ./cpan/CGI/lib/CGI.pm	2011-01-12 11:35:33.000000000 +0000
-@@ -1457,7 +1457,13 @@ END_OF_FUNC
- sub multipart_init {
-     my($self,@p) = self_or_default(@_);
-     my($boundary,@other) = rearrange_header([BOUNDARY],@p);
--    $boundary = $boundary || '------- =_aaaaaaaaaa0';
-+    if (!$boundary) {
-+       $boundary = '------- =_';
-+       my @chrs = ('0'..'9', 'A'..'Z', 'a'..'z');
-+       for (1..17) {
-+	   $boundary .= $chrs[rand(scalar @chrs)];
-+       }
-+    }
-     $self->{'separator'} = "$CRLF--$boundary$CRLF";
-     $self->{'final_separator'} = "$CRLF--$boundary--$CRLF";
-     $type = SERVER_PUSH($boundary);
-@@ -1545,10 +1551,17 @@ sub header {
-     # CR escaping for values, per RFC 822
-     for my $header ($type,$status,$cookie,$target,$expires,$nph,$charset,$attachment,$p3p,@other) {
-         if (defined $header) {
--            $header =~ s/
--                (?<=\n)    # For any character proceeded by a newline
--                (?=\S)     # ... that is not whitespace
--            / /xg;         # ... inject a leading space in the new line
-+            # From RFC 822:
-+            # Unfolding  is  accomplished  by regarding   CRLF   immediately
-+            # followed  by  a  LWSP-char  as equivalent to the LWSP-char.
-+            $header =~ s/$CRLF(\s)/$1/g;
-+
-+            # All other uses of newlines are invalid input. 
-+            if ($header =~ m/$CRLF|\015|\012/) {
-+                # shorten very long values in the diagnostic
-+                $header = substr($header,0,72).'...' if (length $header > 72);
-+                die "Invalid header value contains a newline not followed by whitespace: $header";
-+            }
-         }
-     }
- 

perl-constprint.diff

@@ -1,20 +0,0 @@
---- ./gv.c.orig	2010-05-13 22:01:07.000000000 +0000
-+++ ./gv.c	2010-07-28 09:57:06.000000000 +0000
-@@ -250,8 +250,16 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, co
-     if (doproto) {			/* Replicate part of newSUB here. */
- 	ENTER;
- 	if (has_constant) {
-+	    char *name0 = NULL;
-+	    if (name[len]) {
-+		/* newCONSTSUB doesn't take a len arg, so make sure w
-+		 * give it a \0-terminated string */
-+		name0 = savepvn(name, len);
-+	    }
- 	    /* newCONSTSUB takes ownership of the reference from us.  */
--	    GvCV(gv) = newCONSTSUB(stash, name, has_constant);
-+	    GvCV(gv) = newCONSTSUB(stash, (name0 ? name0 : name), has_constant);
-+	    if (name0)
-+		Safefree(name0);
- 	    /* If this reference was a copy of another, then the subroutine
- 	       must have been "imported", by a Perl space assignment to a GV
- 	       from a reference to CV.  */

perl.changes

@@ -1,3 +1,10 @@
+-------------------------------------------------------------------
+Mon Feb 14 16:30:20 CET 2011 - mls@suse.de
+
+- update to perl-5.12.3 final
+- remove obsolete perl-cgi-injection.diff
+- remove obsolete perl-constprint.diff
+
 -------------------------------------------------------------------
 Fri Jan 28 09:38:54 UTC 2011 - lnussel@suse.de
 

perl.spec

@@ -27,7 +27,7 @@ License:        Artistic License .. ; GPLv2+
 Group:          Development/Languages/Perl
 AutoReqProv:    on
 Url:            http://www.perl.org/
-Source:         perl-5.12.3-RC1.tar.bz2
+Source:         perl-5.12.3.tar.bz2
 Source1:        %name-rpmlintrc
 Source2:        macros.perl
 Source3:        README.macros
@@ -39,10 +39,8 @@ Patch4:         perl-nroff.diff
 Patch5:         perl-netcmdutf8.diff
 Patch6:         perl-autodie-flock.diff
 Patch7:         perl-Fatal.diff
-Patch8:         perl-constprint.diff
-Patch9:         perl-h2ph.diff
-Patch10:        perl-HiRes.t-timeout.diff
-Patch11:        perl-cgi-injection.diff
+Patch8:         perl-h2ph.diff
+Patch9:         perl-HiRes.t-timeout.diff
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 PreReq:         perl-base = %version
 #PreReq:         %fillup_prereq
@@ -127,7 +125,7 @@ BuildArch:      noarch
 Perl man pages and pod files.
 
 %prep
-%setup -q -n perl-5.12.3-RC1
+%setup -q -n perl-5.12.3
 cp -p %{S:3} .
 %patch0
 %patch1
@@ -139,9 +137,7 @@ cp -p %{S:3} .
 %patch7
 %endif
 %patch8
-%patch9
-%patch10 -p1
-%patch11
+%patch9 -p1
 
 %build
 cp -a lib savelib