This file documents the revision history for Perl extension Catalyst.
+
4.24 Xxx Mar 00 00:00:00 2005
- updated cookbook example
+ - fixed base for apache (Andrew Ruthven)
4.23 Wed Mar 09 20:00:00 2005
- no more regex actions in forward
__PACKAGE__->mk_classdata($_) for qw/_config log/;
-our $VERSION = '4.23';
+our $VERSION = '4.24';
our @ISA;
=head1 NAME
script/test.pl /yada
- See also L<Catalyst::Manual::Intro>
-
-
use Catalyst;
use Catalyst qw/My::Module My::OtherModule/;
}
);
+See also L<Catalyst::Manual::Intro>
+
=head1 DESCRIPTION
Catalyst is based upon L<Maypole>, which you should consider for smaller
=head1 THANK YOU
-Danijel Milicevic, David Naughton, Gary Ashton Jones, Jesse Sheidlower,
-Johan Lindstrom, Marcus Ramberg and all the others who've helped.
+Andrew Ruthven, Danijel Milicevic, David Naughton, Gary Ashton Jones,
+Jesse Sheidlower, Johan Lindstrom, Marcus Ramberg and all the others
+who've helped.
=head1 LICENSE
$base->scheme( $c->apache_request->protocol =~ /HTTPS/ ? 'https' : 'http' );
$base->host( $c->apache_request->hostname );
$base->port( $c->apache_request->get_server_port );
- $base->path( $c->apache_request->location );
+ my $path = $c->apache_request->location;
+ $base->path( $path =~ /\/$/ ? $path : "$path/" );
$c->req->base( $base->as_string );
}