in reply to Re: Catalyst::Request::Upload inside-out-object weirdness
in thread Catalyst::Request::Upload inside-out-object weirdness
yes - that's what i suspect is happening somewhere inside catalyst - and i do get that warning - here's more (earlier) console output from the server
You can connect to your server at http://fishbone.local:3000 Use of uninitialized value in list assignment at /Library/Perl/5.8.6/C +atalyst/Engine/HTTP.pm line 371. Use of uninitialized value in list assignment at /Library/Perl/5.8.6/C +atalyst/Engine/HTTP.pm line 371. Odd number of elements in anonymous hash at generated method (unknown +origin) line 8. Use of uninitialized value in concatenation (.) or string at /Users/an +dye/PhotoApp/script/../lib/PhotoApp/Controller/Root.pm line 93. Use of uninitialized value in link at /Library/Perl/5.8.6/Catalyst/Req +uest/Upload.pm line 120. Use of uninitialized value in string eq at /System/Library/Perl/5.8.6/ +File/Copy.pm line 76. Use of uninitialized value in stat at /System/Library/Perl/5.8.6/File/ +Copy.pm line 82. Use of uninitialized value in -d at /System/Library/Perl/5.8.6/File/Co +py.pm line 91. Use of uninitialized value in -e at /Library/Perl/5.8.6/Catalyst/Engin +e.pm line 317.
after looking at the docs some more, I'm now doing this:
for my $field ( $c->req->upload ) { $c->log->warn("field is $field"); my $upload = $c->req->upload($field); my $filename = $upload->filename; my $target = $absGalleryPath . $filename; unless ( $upload->link_to($target) || $upload->copy_to($target +) ) { die( "Failed to copy '$filename' to '$target': $!" ); } }
as per the cookbook, but still no joy.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Catalyst::Request::Upload inside-out-object weirdness
by ikegami (Patriarch) on Mar 26, 2010 at 15:09 UTC | |
by andye (Curate) on Mar 26, 2010 at 15:15 UTC | |
by ikegami (Patriarch) on Mar 26, 2010 at 15:18 UTC | |
by andye (Curate) on Mar 26, 2010 at 15:19 UTC | |
by ikegami (Patriarch) on Mar 26, 2010 at 15:39 UTC | |
by andye (Curate) on Mar 26, 2010 at 15:43 UTC |
In Section
Seekers of Perl Wisdom