removed IO::File dependency

dann · Jan 17, 2009 · f51219f · f51219f
1 parent 7ffbb6f
commit f51219f
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 5 deletions.
diff --git a/angelos-core/Makefile.PL b/angelos-core/Makefile.PL
@@ -78,6 +78,9 @@ requires 'Term::ReadLine';
 requires 'JSON::XS';
 requires 'MIME::Types';
 
+# Middleware
+requires 'File::stat';
+
 if (HAVE_MP) {
     Apache::TestMM::filter_args();
     #Apache::TestMM::generate_script('t/integration/modperl/TEST');

diff --git a/angelos-core/bugs/issue-99604fc0a18ba7d3f53e5f6a5adf92fe31054920.yaml b/angelos-core/bugs/issue-99604fc0a18ba7d3f53e5f6a5adf92fe31054920.yaml
@@ -5,8 +5,8 @@ type: :task
 component: middleware
 release: "0.01"
 reporter: dann <techmemo@gmail.com>
-status: :unstarted
+status: :closed
-disposition: 
+disposition: :fixed
 creation_time: 2009-01-14 15:29:13.497768 Z
 references: []
 
@@ -16,3 +16,7 @@ log_events:
   - dann <techmemo@gmail.com>
   - created
   - ""
+- - 2009-01-17 17:17:48.462601 Z
+  - dann <techmemo@gmail.com>
+  - closed with disposition fixed
+  - ""
diff --git a/angelos-core/lib/Angelos/Middleware/Static.pm b/angelos-core/lib/Angelos/Middleware/Static.pm
@@ -5,7 +5,7 @@ extends 'Angelos::Middleware';
 use Angelos::Exceptions;
 use HTTP::Engine::Response;
 use Angelos::MIMETypes;
-use IO::File;
+use Path::Class;
 use Angelos::Home;
 use File::stat;
 
@@ -68,9 +68,8 @@ sub serve_static {
     $res->header( 'Content-Length' => $stat->size );
     $res->header( 'Last-Modified'  => $stat->mtime );
 
-    my $fh = IO::File->new( $full_path, 'r' );
+    my $fh = $full_path->openr;
     if ( defined $fh ) {
-        warn 'hoge';
         binmode $fh;
         $res->code(200);
         $res->body($fh);
@@ -101,3 +100,5 @@ sub _extension_to_type {
 }
 
 __END_OF_CLASS__
+
+__END__