use absolute paths when loading perl files

[p5sagit/Config-Any.git] / lib / Config / Any / Perl.pm

diff --git a/lib/Config/Any/Perl.pm b/lib/Config/Any/Perl.pm
index 28ad0c1..2bddfa1 100644 (file)
--- a/lib/Config/Any/Perl.pm
+++ b/lib/Config/Any/Perl.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use base 'Config::Any::Base';
+use File::Spec;
 
 =head1 NAME
 
@@ -48,7 +49,7 @@ sub load {
     my( $exception, $content );
     {
         local $@;
-        $content = do $file;
+        $content = do File::Spec->rel2abs($file);
         $exception = $@;
     }
     die $exception if $exception;