From: Sebastian Riedel Date: Tue, 22 Mar 2005 22:04:08 +0000 (+0000) Subject: fixed small bug X-Git-Tag: 5.7099_04~1733 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=b0b7c5e0d9fca0c420b39f0a6bb5ff47400c1a14 fixed small bug --- diff --git a/Changes b/Changes index 15ac01f..3452c54 100644 --- a/Changes +++ b/Changes @@ -5,6 +5,7 @@ This file documents the revision history for Perl extension Catalyst. - added optional arguments to Catalyst::Log methods (Andrew Ford) - removed cgi-server.pl - added fcgi.pl + - fixed an undef durng make test (Dan Sully) 4.32 Tue Mar 22 02:10:00 2005 - made a damn typo *AAAAAAAAAAAAAAHHHH!!!* diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index eeac89e..f0638c1 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -234,9 +234,9 @@ Sebastian Riedel, C =head1 THANK YOU Andrew Ford, Andrew Ruthven, Christian Hansen, Christopher Hicks, -Danijel Milicevic, David Naughton, Gary Ashton Jones, Jesse Sheidlower, -Johan Lindstrom, Marcus Ramberg, Tatsuhiko Miyagawa and all the others -who've helped. +Dan Sully, Danijel Milicevic, David Naughton, Gary Ashton Jones, +Jesse Sheidlower, Johan Lindstrom, Marcus Ramberg, Tatsuhiko Miyagawa +and all the others who've helped. =head1 LICENSE diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm index 1a9d04a..1588717 100644 --- a/lib/Catalyst/Engine/CGI.pm +++ b/lib/Catalyst/Engine/CGI.pm @@ -187,6 +187,7 @@ sub prepare_request { shift->cgi( CGI::Simple->new ) } sub prepare_uploads { my $c = shift; for my $name ( $c->cgi->upload ) { + next unless defined $name; $c->req->uploads->{$name} = { fh => $c->cgi->upload($name), size => $c->cgi->upload_info( $name, 'size' ),