Explicit die message when File::Copy->move() fails.

  e.g.: RHEL 4.1
  e.g.: http://www.cpantesters.org/cpan/report/e5f076fa-17fc-11e3-ab8b-252590986129

diff --git a/lib/DBIx/Class/Fixtures.pm b/lib/DBIx/Class/Fixtures.pm
index 87ff12c..4f3e00e 100644 (file)
--- a/lib/DBIx/Class/Fixtures.pm
+++ b/lib/DBIx/Class/Fixtures.pm
@@ -718,8 +718,11 @@ sub dump {
   }
 
   $self->msg("- moving temp dir to $output_dir");
-  move($_, dir($output_dir, $_->relative($_->parent)->stringify)) 
-    for $tmp_output_dir->children;
+  for ($tmp_output_dir->children) {
+    my $from = $_;
+    my $to = dir($output_dir, $from->relative($from->parent)->stringify);
+    move($from, $to) || die "File::Copy->move('$from', '$to') failed: $!";
+  }
 
   if (-e $output_dir) {
     $self->msg("- clearing tmp dir $tmp_output_dir");