X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=cfba49e6ee114feffb3bfd2cd80363a44f3f3181;hb=62ea63bedfe7a3659d4b0ba7d4ca40d6b160d364;hp=13af1719bbb4954de5a005e017072d8dce7caed1;hpb=371b76dc4be5e9a9cd9955e58f689725d458f46b;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 13af171..cfba49e 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -6,7 +6,7 @@ use warnings; use Maypole::Config; use Maypole::Constants; -our $VERSION = '2.0'; +our $VERSION = '2.03'; __PACKAGE__->mk_classdata($_) for qw( config init_done view_object ); __PACKAGE__->mk_accessors( @@ -48,7 +48,7 @@ sub init { $config->view->require; die "Couldn't load the view class " . $config->view . ": $@" if $@; $config->display_tables - || $config->display_tables( [ $class->config->tables ] ); + || $config->display_tables( $class->config->tables ); $class->view_object( $class->config->view->new ); $class->init_done(1); @@ -84,7 +84,6 @@ sub handler_guts { # We authenticate every request, needed for proper session management my $status; eval { $status = $r->call_authenticate }; - warn "No return value from authenticate" unless $status; if ( my $error = $@ ) { $status = $r->call_exception($error); if ( $status != OK ) { @@ -442,8 +441,8 @@ Simon Cozens, C =head1 THANKS TO Danijel Milicevic, Dave Slack, Jesse Sheidlower, Jody Belka, Marcus Ramberg, -Mickael Joanne, Simon Flack, Veljko Vidovic and all the others who've -helped. +Mickael Joanne, Simon Flack, Steve Simms, Veljko Vidovic and all the others +who've helped. =head1 LICENSE