From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 21 Aug 2005 00:16:26 +0000 (-0700)
Subject: Make curl follow redirects
X-Git-Tag: accepted/trunk/20130322.191538~19946
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fc83dee729c25874bd52299a9e41011947d88884;p=platform%2Fupstream%2Fperl.git

Make curl follow redirects
Message-ID: <20050821071625.GA29394@windhund.schwern.org>

p4raw-id: //depot/perl@25317
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 095b533..fa83398 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -2651,8 +2651,10 @@ sub hosthard {
 	    $src_switch = " -source";
 	  } elsif ($f eq "ncftp"){
 	    $src_switch = " -c";
-          } elsif ($f eq "wget"){
-            $src_switch = " -O -";
+	  } elsif ($f eq "wget"){
+	    $src_switch = " -O -";
+	  } elsif ($f eq 'curl'){
+	    $src_switch = ' -L';
 	  }
 
 	  my($chdir) = "";