Index: /trunk/DataStore/lib/DataStore/File.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/File.pm	(revision 6592)
+++ /trunk/DataStore/lib/DataStore/File.pm	(revision 6593)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: File.pm,v 1.3 2006-03-15 03:30:51 jhoblitt Exp $
+# $Id: File.pm,v 1.4 2006-03-15 22:02:53 jhoblitt Exp $
 
 package DataStore::File;
@@ -14,5 +14,7 @@
 
 use Carp qw( carp );
+use DataStore::Response;
 use Digest::MD5::File qw( file_md5_hex );
+use File::stat;
 use POSIX;
 use Params::Validate qw( validate SCALAR );
@@ -146,5 +148,12 @@
     }
 
-    return 1;
+    # return DS::Response object
+    my $dsr = DataStore::Response->new(
+        is_success  => 1,
+        code        => $response->code,
+        status_line => $response->status_line,
+        data        => $p{filename},
+        request     => $self,
+    );
 }