rpms/perl-libwww-perl/F-9 lwp-untaint.patch,NONE,1.1

[Marcela Mašláňová]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl-libwww-perl/F-9
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv23121

Added Files:
	lwp-untaint.patch 
Log Message:
* Thu Sep 18 2008 Marcela Maslanova <mmaslano at redhat.com> 5.814-2
- update to 5.814
- tests for testing sending messages failed->net problem?
  tests switched off for a while


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