--- AnyEvent-HTTP/HTTP.pm	2015/05/14 02:04:35	1.125
+++ AnyEvent-HTTP/HTTP.pm	2016/01/07 13:14:16	1.126
@@ -897,7 +897,7 @@
             my $loc = $hdr{location};
 
             if ($loc =~ m%^//%) { # //
-               $loc = "$rscheme:$loc";
+               $loc = "$uscheme:$loc";
 
             } elsif ($loc eq "") {
                $loc = $url;
@@ -906,7 +906,7 @@
                $loc =~ s/^\.\/+//;
 
                if ($loc !~ m%^[.?#]%) {
-                  my $prefix = "$rscheme://$uhost:$uport";
+                  my $prefix = "$uscheme://$uhost:$uport";
 
                   unless ($loc =~ s/^\///) {
                      $prefix .= $upath;