103a104,106
>         PerlSetVar  CGIAPP_DEFAULT_RM            Login
>         # Some::Module or Some_Module syntax OK
>         PerlSetVar  CGIAPP_DEFAULT_DISPATCH      Some_Module
123c126
<     my $module = get_module_name($path, $dir_args->{CGIAPP_DISPATCH_PREFIX});
---
>     my $module = get_module_name($path, $dir_args->{CGIAPP_DISPATCH_PREFIX}, $dir_args->{CGIAPP_DEFAULT_DISPATCH} );
147c150
<         my $rm = get_runmode($path);
---
>         my $rm = get_runmode($path, $dir_args->{CGIAPP_DEFAULT_RM});
169a173,174
>             DEFAULT_MODULE => 'Some_Module',  # Some::Module or Some_Module OK
>             DEFAULT_RM => 'Login',
192c197,198
<             ($args{CGIAPP_DISPATCH_PREFIX} || $args{PREFIX})
---
>             ($args{CGIAPP_DISPATCH_PREFIX} || $args{PREFIX},
>             $args{CGIAPP_DEFAULT_MODULE} || $args{DEFAULT_MODULE} )
203c209
<         my $run_mode = get_runmode($ENV{PATH_INFO});
---
>         my $run_mode = get_runmode($ENV{PATH_INFO},$args{CGIAPP_DEFAULT_RM}||$args{DEFAULT_RM});
222c228
<     my ($path, $prefix) = @_;
---
>     my ($path, $prefix, $default ) = @_;
226a233
>     $module ||= $default;
230c237
<         $module = join( '::', ( map { ucfirst } ( split( /_/, $module ) ) ) );
---
>         $module = join( '::', ( map { ucfirst } ( split( /[_:]+/, $module ) ) ) );
249c256,258
<     return (split(/\//, shift))[2];
---
>     my ( $path, $default ) = @_;
>     my $rm = (split(/\//, $path))[2];
>     return defined $rm ? $rm : $default;