my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
- $self->rewrite_path;
$self->parse_path;
$self->parse_args;
}
my (%vars) = $self->{cgi}->Vars;
while ( my ( $key, $value ) = each %vars ) {
my @values = split "\0", $value;
- $vars{$key} = @values == 1 ? $values[0] : \@values;
+ $vars{$key} = @values <= 1 ? $values[0] : \@values;
}
$self->{params} = {%vars};
$self->{query} = {%vars};