if (not $rm or $rm eq "home") {
        if ($ENV{PATH_INFO} =~m{^/   # Line 674
            ([^/]+)        # first word till after the first /
            (?:/(.*))?     # the rest, after the (optional) second /
             }x) {
         my $newrm = $1;
         my $params = $2 || "";
         if (grep {$newrm eq $_} @urls) {
         my @params = split /\//, $params;
            $self->param(path_parameters => @params ? \@params : []);
            $rm = $newrm;
            $self->prerun_mode($rm);
            } elsif ($ENV{PATH_INFO} eq "/cgi/index.pl") {
            # TODO this is temporary to avoid unnecessary warnings
            } else {
              warn "Invalid PATH_INFO: $ENV{PATH_INFO}";
              # shall I make more noise ? 
            }
       }

  }