Pass -L to curl to allow it to follow redirects when bootstrapping. (Pavel Avgustinov)

[code/myrepos.git] / mr

diff --git a/mr b/mr
index b5d5c118b8d4ef9c9c470196e64f5214c330a3c4..0bf66553c08a2dc5556810b1d11359f00e3dd973 100755 (executable)
--- a/mr
+++ b/mr
@@ -791,7 +791,9 @@ sub repodir {
        my $repo=shift;
        my $topdir=$repo->{topdir};
        my $subdir=$repo->{subdir};
        my $repo=shift;
        my $topdir=$repo->{topdir};
        my $subdir=$repo->{subdir};

-       return abs_path(($subdir =~/^\//) ? $subdir : $topdir.$subdir);
+       my $ret=($subdir =~/^\//) ? $subdir : $topdir.$subdir;
+       $ret=~s/\/\.$//;
+       return $ret;

 }
 
 # figure out which repos to act on
 }
 
 # figure out which repos to act on


@@ -1357,7 +1359,7 @@ sub bootstrap {
        eval q{use File::Temp};
        die $@ if $@;
        my $tmpconfig=File::Temp->new();
        eval q{use File::Temp};
        die $@ if $@;
        my $tmpconfig=File::Temp->new();

-       my @curlargs = ("curl", "-A", "mr", "-s", $url, "-o", $tmpconfig);
+       my @curlargs = ("curl", "-A", "mr", "-L", "-s", $url, "-o", $tmpconfig);

        push(@curlargs, "-k") if $insecure;
        my $curlstatus = system(@curlargs);
        die "mr bootstrap: invalid SSL certificate for $url (consider -k)\n" if $curlstatus >> 8 == 60;
        push(@curlargs, "-k") if $insecure;
        my $curlstatus = system(@curlargs);
        die "mr bootstrap: invalid SSL certificate for $url (consider -k)\n" if $curlstatus >> 8 == 60;