[Bast-commits] r4837 - DBIx-Class/0.08/branches/warnfree/lib/DBIx/Class/InflateColumn

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-09-21 23:35:22 +0100 (Sun, 21 Sep 2008)
New Revision: 4837

Modified:
   DBIx-Class/0.08/branches/warnfree/lib/DBIx/Class/InflateColumn/File.pm
Log:
Fix warning due to File::Copy being sloppy

Modified: DBIx-Class/0.08/branches/warnfree/lib/DBIx/Class/InflateColumn/File.pm
===================================================================
--- DBIx-Class/0.08/branches/warnfree/lib/DBIx/Class/InflateColumn/File.pm	2008-09-21 22:34:44 UTC (rev 4836)
+++ DBIx-Class/0.08/branches/warnfree/lib/DBIx/Class/InflateColumn/File.pm	2008-09-21 22:35:22 UTC (rev 4837)
@@ -96,7 +96,7 @@
     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);