[cgiapp] Weird start_mode problem.

[John Day]

Here is one wierd problem, On one of my machines which has Perl 5.6.1 
(Apache 1.3.31, mod_perl 1.29) I have the following in my cgi-app:

package lic001;
use strict;
use warnings;
use base 'CGI::Application';
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);
use secure;
use classdbi;
use DBI;
sub cgiapp_init {
        # !
}
sub setup {
	my $self = shift;
	$self->start_mode('m_0000');
	$self->run->modes(
					  'AUTOLOAD'	=> 'mode_not_available',
					  'm_0000'		=> 'base_homepage'
					 );
	
	$self->param('mydbh' => DBI->connect('DBI:mysql:iclicence', 
'iclicence_user', 'd37q4LR28',
										 {
										  PrintError => 1,
										  AutoCommit => 1
										 }
										)
				 );
	$self->tmpl_path('/home/johnday/templates/');
	$self->param('template_root' => '/home/johnday/templates/');
	$self->param('debug' => 1);
}

sub cgiapp_prerun {
        # !
}
sub teardown {
        my $self = shift;
        $self->param('mydbh')->disconnect();
}
And I repeatedly get this error message:
[error] No such run mode 'm_0000' at /home/johnday/modperl/lic001.cgi line 10
Any suggestion? I suspect I should upgrade the Perl to 5.8.5 - but why? 
Surely this should work?

...john

---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/[EMAIL PROTECTED]/
             http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]