From: Sebastian Riedel Date: Thu, 3 Mar 2005 10:31:57 +0000 (+0000) Subject: improved documentation X-Git-Tag: 5.7099_04~1787 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=0ea0c2c3154fbf90a63573566b24c624b98fe6c4 improved documentation --- diff --git a/Changes b/Changes index 7f81187..eb420c2 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ This file documents the revision history for Perl extension Catalyst. +4.13 Thu Mar 03 11:00:00 2005 + - improved documentation + 4.12 Wed Mar 02 11:00:00 2005 - server_base sucks, removed - added $c->log->dump() diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 6f0311f..bc1d5b6 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -7,7 +7,7 @@ use Catalyst::Log; __PACKAGE__->mk_classdata($_) for qw/_config log/; -our $VERSION = '4.12'; +our $VERSION = '4.13'; our @ISA; =head1 NAME diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index b63e48d..f6ad5a6 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -88,9 +88,9 @@ Returns an arrayref containing regex snippets. Returns a hashref containing the uploads. my $filename = $c->req->parameters->{foo}; - print $c->request->uploads->{$filename}->type; - print $c->request->uploads->{$filename}->size; - my $fh = $c->request->uploads->{$filename}->fh; + print $c->request->uploads->{$filename}->{type}; + print $c->request->uploads->{$filename}->{size}; + my $fh = $c->request->uploads->{$filename}->{fh}; my $content = do { local $/; <$fh> }; =head1 AUTHOR