[cgiapp] Weird start_mode problem.

[John Day <suppressed>]

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/suppressed/
             http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed