Changeset 25236

Timestamp:

11/28/08 17:18:55 (4 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:

• lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request/Upload.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request/Upload.pm

@@ -2 +2 @@
 use Shika;
 use File::Copy ();
-use IO::File   ();
 use File::Spec::Unix;
 
@@ -27 +26 @@
         my $self = shift;
 
-        my $fh = IO::File->new( $self->tempname, IO::File::O_RDONLY );
-        unless ( defined $fh ) {
-            my $filename = $self->tempname;
-            die "Can't open '$filename': '$!'";
-        }
+        open my $fh, '<', $self->tempname or die "Can't open '@{[ $self->tempname ]}': '$!'";
         return $fh;
     },