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 6258392..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;
@@ -62,7 +63,7 @@ Brian Cassidy E<lt>bricas@cpan.orgE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006-2010 by Brian Cassidy
+Copyright 2006-2016 by Brian Cassidy
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.