We'll probably want to continue supporting CGI for mod_perl
compatibility.
again:
my $cgi = $ctx->{cgi};
my $url = ref($cgi) eq 'CGI' ? $cgi->url(-base) . '/'
- : $cgi->base->as_string;
+ : $cgi->base->as_string; # Plack::Request
$url .= $listname;
unshift @pfx, { git_dir => $ctx->{git_dir}, url => $url };
foreach my $pfx (@pfx) {
my $base;
if (ref($cgi) eq 'CGI') {
$base = $cgi->url(-base);
- } else {
+ } else { # Plack::Request
$base = $cgi->base->as_string;
$base =~ s!/\z!!;
}
sub self_url {
my ($cgi) = @_;
+ # Plack::Request
ref($cgi) eq 'CGI' ? $cgi->self_url : $cgi->uri->as_string;
}
if (ref($cgi) eq 'CGI') {
$url = $cgi->url(-base) . '/';
$qs = $cgi->query_string;
- } else {
+ } else { # Plack::Request
$url = $cgi->base->as_string;
$qs = $cgi->env->{QUERY_STRING};
}