better error messages for missing files in test

metacpan · May 14, 2017 · 24b2b34 · 24b2b34
1 parent 3a1f307
commit 24b2b34
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/corpus.t b/t/corpus.t
@@ -57,7 +57,7 @@ for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) {
     pass "updated $parsed_file";
   }
   else {
-    my $wanted = do File::Spec->rel2abs($parsed_file) or die $@;
+    my $wanted = do File::Spec->rel2abs($parsed_file) or die $@||$!;
     _eq $parsed, $wanted, "$log parsed into expected form";
   }
 }