Changeset 24 for trunk/lib/Mungo

Show
Ignore:
Timestamp:
12/27/07 19:44:05 (6 years ago)
Author:
jesus
Message:

fixes #10

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lib/Mungo/MultipartFormData.pm

    r17 r24  
    66 
    77use strict; 
    8 use IO::Scalar; 
    98use Mungo; 
    109use Mungo::Request; 
     
    2120      if($part->{filename}) { 
    2221        $self->{$part->{name}} = $part; 
    23         # Make this payload into an IO::Scalar 
    2422        if(exists($part->{payload})) { 
    25           $part->{handle} = IO::Scalar->new(\$part->{payload}); 
     23          open($part->{handle}, "<", \$part->{payload}); 
    2624          delete $part->{payload}; 
    2725        }