Updated version handling to deal with changes in ImageMagick's versioning interface

Author: bfree-github

Image.pm

@@ -19,7 +19,7 @@ use warnings;
 use Carp;
 
 use vars qw($VERSION @ISA);
-$VERSION = '1.03';
+$VERSION = '1.04';
 
 @ISA = qw(Exporter);
 

Image/Magick.pm

@@ -150,7 +150,11 @@ eval 'use Image::Magick';
 # Get engine version
 sub EngineVersion
 {
-  return $Image::Magick::VERSION;
+  return $Image::Magick::VERSION if ($Image::Magick::VERSION);
+  my $im = new Image::Magick;
+  my $ver = $im->Get('version');
+  return $1 if ($ver =~ m|ImageMagick ([0-9\.]+)|);
+  return undef;
 }
 
 # Get engine description

README

@@ -18,6 +18,8 @@ You can find the latest releases and information for installing/using
 these modules at the Perl OpenGL (POGL) Developer's Site:
 http://graphcomp.com/opengl
 
+The official github repository is at http://github.com/bfree-github/OpenGL-Image
+
 
 NOTE: as of 1.03, you _must_ call Sync prior to calling native (eg. ImageMagick) APIs
 on an OpenGL::Image object, and call SyncOGA when done with your native calls.

t/OpenGL-Image.t

@@ -40,11 +40,27 @@ $exec = qq
 {
   use Image\::Magick;
   \$im_ver = \$Image::Magick::VERSION;
+  if (!$im_ver)
+  {
+    my \$im = new Image::Magick;
+    \$im_ver = \$im->Get('version');
+  }
 };
 eval($exec);
-if ($@ || !$im_ver)
+my $err = $@;
+
+if ($im_ver =~ m|ImageMagick ([0-9\.]+)|)
+{
+  $im_ver = $1;
+}
+else
+{
+  $im_ver = undef;
+}
+
+if ($err || !$im_ver)
 {
-  $t->skip("Image::Magick module not installed: $@") 
+  $t->skip("Image::Magick module not installed: $err") 
 }
 elsif ($im_ver lt '6.3.5' )
 {