From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 21 Sep 2008 22:35:22 +0000 (+0000)
Subject: Fix warning due to File::Copy being sloppy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea78b3e678d829caee4ffc0d2555b4a2827667c6;p=dbsrgits%2FDBIx-Class-Historic.git

Fix warning due to File::Copy being sloppy
---

diff --git a/lib/DBIx/Class/InflateColumn/File.pm b/lib/DBIx/Class/InflateColumn/File.pm
index d462bcc..9687f94 100644
--- a/lib/DBIx/Class/InflateColumn/File.pm
+++ b/lib/DBIx/Class/InflateColumn/File.pm
@@ -96,7 +96,7 @@ sub _save_file_column {
     my $fs_file = $self->_file_column_file($column, $value->{filename});
     mkpath [$fs_file->dir];
     
-    File::Copy::copy($value->{handle}, $fs_file);
+    File::Copy::copy($value->{handle}, $fs_file->stringify);    # File::Copy doesn't like Path::Class (or any for that matter) objects
 
     $self->_file_column_callback($value, $self, $column);