Permalink
Browse files

Don't try to copy the build log if its not there.

Else the program will die.  This can happen if the test exits via timeout.
  • Loading branch information...
1 parent 8d2c9b0 commit 329d1cc5b7011a18d312b584c0a1845120bfd71e @schwern schwern committed Apr 25, 2013
Showing with 3 additions and 2 deletions.
  1. +3 −2 dist/test_dists
View
@@ -75,8 +75,9 @@ for my $dist (@dist_list->shuffle) {
# Save the build log.
my $mod_file = $mod_name =~ s/::/-/gr;
my $lib_id = $perl5lib =~ s/\//-/gr;
- my $new_file = $temp->child("$mod_file-$lib_id-build.log");
- path('~/.cpanm/latest-build/build.log')->copy($new_file);
+ my $latest_build_log = '~/.cpanm/latest-build/build.log';
+ my $save_build_log = $temp->child("$mod_file-$lib_id-build.log");
+ path($latest_build_log)->copy($save_build_log) if -e $latest_build_log;
}
is( $results[0], $results[1], "$mod_name - install vs dev" ) || push @failed_dists, $mod_name;

0 comments on commit 329d1cc

Please sign in to comment.