| Subject: | Cannot read data from returned filehandle. |
This is under Perl v5.8.7 built for MSWin32-x86-multi-thread on
CYGWIN_NT-5.1 in CGI::Upload v.1.10
<pre>
sub import_file
{
my $self = shift;
my $query = $self->query();
my upload = CGI::Uload->new({query => $query});
my %file = ( name => $upload->file_name("upload"),
type => $upload->file_type("upload"),
handle => $upload->file_handle("upload"),
data => [],
mime => $upload->mime_type("upload"),
);
# Because $file{handle} is an IO::File object
while($_ = $file{handle}->getline)
{
push @{$file{data}}, $_;
}
</pre>
Results in nothing showing up in $file{data}. Also, when
<pre>
die "Weeee!!!!!" if($file{handle}->opened);
</pre>
is run, the filehandle is shown to be open. For a full discourse on
everything I tried, check out http://www.perlmonks.org/?node_id=528287