Changeset 25236

Show
Ignore:
Timestamp:
11/28/08 17:18:55 (5 years ago)
Author:
tokuhirom
Message:

r32552@skinny (orig r25235): tokuhirom | 2008-11-28 17:18:37 +0900
we don't need IO::File, doesn't it?

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request/Upload.pm

    r25122 r25236  
    22use Shika; 
    33use File::Copy (); 
    4 use IO::File   (); 
    54use File::Spec::Unix; 
    65 
     
    2726        my $self = shift; 
    2827 
    29         my $fh = IO::File->new( $self->tempname, IO::File::O_RDONLY ); 
    30         unless ( defined $fh ) { 
    31             my $filename = $self->tempname; 
    32             die "Can't open '$filename': '$!'"; 
    33         } 
     28        open my $fh, '<', $self->tempname or die "Can't open '@{[ $self->tempname ]}': '$!'"; 
    3429        return $fh; 
    3530    },