eliminate use vars
[imager.git] / lib / Imager / ExtUtils.pm
index 069dc9f..3a0d828 100644 (file)
@@ -1,5 +1,9 @@
 package Imager::ExtUtils;
+use 5.006;
 use strict;
+use File::Spec;
+
+our $VERSION = "1.003";
 
 =head1 NAME
 
@@ -23,9 +27,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;
     }
   }
 
@@ -46,7 +54,8 @@ sub inline_config {
     {
      INC => $class->includes,
      TYPEMAPS => $class->typemap,
-     AUTO_INCLUDE => <<'CODE',
+     AUTO_INCLUDE => <<CODE,
+/* Inserted by Imager $Imager::VERSION */
 #include "imext.h"
 #include "imperl.h"
 DEFINE_IMAGER_CALLBACKS;
@@ -112,7 +121,7 @@ __END__
 
 =head1 AUTHOR
 
-Tony Cook <tony@imager.perl.org>
+Tony Cook <tonyc@cpan.org>
 
 =head1 REVISION