rpms/perl-libwww-perl/devel lwp-untaint.patch, NONE, 1.1 perl-libwww-perl.spec, 1.26, 1.27

[Marcela Mašláňová]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl-libwww-perl/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv22831

Modified Files:
	perl-libwww-perl.spec 
Added Files:
	lwp-untaint.patch 
Log Message:
* Thu Sep 18 2008 Marcela Maslanova <mmaslano at redhat.com> 5.814-2
- use untaint patch from Villa Skyte


lwp-untaint.patch:

--- NEW FILE lwp-untaint.patch ---
diff --git a/lib/HTTP/Message.pm b/lib/HTTP/Message.pm
index 12acdfa..4c15fb2 100644
--- a/lib/HTTP/Message.pm
+++ b/lib/HTTP/Message.pm
@@ -404,7 +404,7 @@ sub _stale_content {
 # delegate all other method calls the the _headers object.
 sub AUTOLOAD
 {
-    my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
+    my ($method) = ($AUTOLOAD =~ /^.*::(.+)$/); # untaint
     return if $method eq "DESTROY";
 
     # We create the function here so that it will not need to be


Index: perl-libwww-perl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-libwww-perl/devel/perl-libwww-perl.spec,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- perl-libwww-perl.spec	18 Sep 2008 12:08:49 -0000	1.26
+++ perl-libwww-perl.spec	22 Sep 2008 07:06:38 -0000	1.27
@@ -1,6 +1,6 @@
 Name:           perl-libwww-perl
 Version:        5.814
-Release:        1%{?dist}
+Release:        2%{?dist}
 Summary:        A Perl interface to the World-Wide Web
 
 Group:          Development/Libraries
@@ -14,6 +14,7 @@
 # about being lazy and skipping these instead of figuring out why they
 # fail in mock and not on my box.
 Patch1:         perl-libwww-perl-5.808-skip-message-tests.patch
+Patch2:         lwp-untaint.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
@@ -36,6 +37,7 @@
 %prep
 %setup -q -n libwww-perl-%{version} 
 ##%patch1 -p1
+%patch2 -p1
 
 # Install the aliases by default
 %{__perl} -pi -e 's|my \$default = "n";|my \$default = "y";|' Makefile.PL
@@ -114,6 +116,9 @@
 
 
 %changelog
+* Thu Sep 18 2008 Marcela Maslanova <mmaslano at redhat.com> 5.814-2
+- use untaint patch from Villa Skyte
+
 * Thu Sep 18 2008 Marcela Maslanova <mmaslano at redhat.com> 5.814-1
 - update to 5.814
 - remove patch, now we have all upstream tests on