(no commit message)

diff --git a/PerlMagick/Makefile.PL b/PerlMagick/Makefile.PL
index b8fc6cde1955b81245c84cad1daae1379bbb8a57..1a9b06508e73115dfb93fb080d1180169bb58605 100644 (file)
--- a/PerlMagick/Makefile.PL
+++ b/PerlMagick/Makefile.PL
@@ -124,10 +124,11 @@ EOF
 sub AutodetectDelegates {
   #try to get configuration info via identify or convert utilities
   my $devnull = devnull();
-  my $conf = `identify -list format 2>$devnull` || `convert -list format 2>$devnull`;
+  my $conf = `identify -list Configure 2>$devnull` || `convert -list Configure 2>$devnull`;
+  my @delegates = ();
   foreach my $line (split '\n', $conf) {
     next unless $line =~ /^DELEGATES\s+/;
-    my (undef, @delegates) = split /\s+/, $line;
+    (undef, @delegates) = split /\s+/, $line;
     last;
   };
   return @delegates;
@@ -141,7 +142,7 @@ my @supported_delegates = AutodetectDelegates();
 my %seen_delegates = ();
 $seen_delegates{$_}++ for @supported_delegates;
 foreach my $delegate (@tested_delegates) {
-  if ( $seen_delegates{$_} ) {
+  if ( $seen_delegates{$delegate} ) {
     if ( -d "t/$delegate" ) {
       if ( defined($ENV{'DISPLAY'}) && ($^O ne 'MSWin32') ) {
         if ( defined $ENV{'DISPLAY'} ) {

diff --git a/PerlMagick/Makefile.PL.in b/PerlMagick/Makefile.PL.in
index aed3052400404c75e2223af184e1a469e26ffb8a..23e650e0ddb2aa74af7c044aa83794d196d024c3 100644 (file)
--- a/PerlMagick/Makefile.PL.in
+++ b/PerlMagick/Makefile.PL.in
@@ -124,10 +124,11 @@ EOF
 sub AutodetectDelegates {
   #try to get configuration info via identify or convert utilities
   my $devnull = devnull();
-  my $conf = `identify -list format 2>$devnull` || `convert -list format 2>$devnull`;
+  my $conf = `identify -list Configure 2>$devnull` || `convert -list Configure 2>$devnull`;
+  my @delegates = ();
   foreach my $line (split '\n', $conf) {
     next unless $line =~ /^DELEGATES\s+/;
-    my (undef, @delegates) = split /\s+/, $line;
+    (undef, @delegates) = split /\s+/, $line;
     last;
   };
   return @delegates;
@@ -141,7 +142,7 @@ my @supported_delegates = AutodetectDelegates();
 my %seen_delegates = ();
 $seen_delegates{$_}++ for @supported_delegates;
 foreach my $delegate (@tested_delegates) {
-  if ( $seen_delegates{$_} ) {
+  if ( $seen_delegates{$delegate} ) {
     if ( -d "t/$delegate" ) {
       if ( defined($ENV{'DISPLAY'}) && ($^O ne 'MSWin32') ) {
         if ( defined $ENV{'DISPLAY'} ) {