X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/22f9ca4817f8186a26a8f28232352815202c5dc5..0d80f37ea0e9d76ef46fbd6e4f54c82c8a163b51:/lib/Imager/ExtUtils.pm diff --git a/lib/Imager/ExtUtils.pm b/lib/Imager/ExtUtils.pm index 93a63f51..61caa072 100644 --- a/lib/Imager/ExtUtils.pm +++ b/lib/Imager/ExtUtils.pm @@ -1,9 +1,10 @@ package Imager::ExtUtils; use strict; +use File::Spec; use vars qw($VERSION); -$VERSION = "1.001"; +$VERSION = "1.002"; =head1 NAME @@ -27,9 +28,13 @@ Returns the base directory where Imager is installed. # figure out where Imager is installed sub base_dir { - for my $dir (@INC) { - if (-e "$dir/Imager.pm") { - return $dir; + for my $inc_dir (@INC) { + if (-e "$inc_dir/Imager.pm") { + my $base_dir = $inc_dir; + unless (File::Spec->file_name_is_absolute($base_dir)) { + $base_dir = File::Spec->rel2abs($base_dir); + } + return $base_dir; } } @@ -117,7 +122,7 @@ __END__ =head1 AUTHOR -Tony Cook +Tony Cook =head1 REVISION