avoid relying on . in @inc

metacpan · Oct 12, 2016 · e2f116b · e2f116b
1 parent 6aad093
commit e2f116b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/corpus.t b/t/corpus.t
@@ -10,6 +10,7 @@ use constant HAVE_DIFF => eval {
 use CPAN::Changes::Parser;
 use Getopt::Long qw(:config gnu_getopt no_auto_abbrev no_ignore_case);
 use Data::Dumper ();
+use File::Spec;
 
 sub _dump {
   local $Data::Dumper::Indent = 1;
@@ -54,7 +55,7 @@ for my $log (glob('corpus/dists/*.changes')) {
     pass "updated $parsed_file";
   }
   else {
-    my $wanted = do $parsed_file;
+    my $wanted = do File::Spec->rel2abs($parsed_file) or die $@;
     _eq $parsed, $wanted, "$log parsed into expected form";
   }
 }