Changeset 24

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/Makefile.PL

    r4 r24  
    44  NAME            => 'Mungo', 
    55  VERSION_FROM    => 'lib/Mungo.pm', 
    6   PREREQ_PM       => { 'IO::Scalar' => 2.103, 
    7                        'Apache' => 1.27 } 
     6  PREREQ_PM       => { 'Apache' => 1.27 } 
    87); 
    98 
  • 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        }