(no commit message)

diff --git a/PerlMagick/Makefile.PL b/PerlMagick/Makefile.PL
index af6c00192dfd4b3868ec75f87845d99a9a0169b9..a03c87c8dc4a7edd4507b6f6b6ce64b2eb81fbf8 100644 (file)
--- a/PerlMagick/Makefile.PL
+++ b/PerlMagick/Makefile.PL
@@ -123,6 +123,7 @@ 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`;
   foreach my $line (split '\n', $conf) {
     next unless $line =~ /^DELEGATES\s+/;

diff --git a/PerlMagick/Makefile.PL.in b/PerlMagick/Makefile.PL.in
index f17956473610e2d2d80516a721c5e3b3fd8eaef7..aed3052400404c75e2223af184e1a469e26ffb8a 100644 (file)
--- a/PerlMagick/Makefile.PL.in
+++ b/PerlMagick/Makefile.PL.in
@@ -123,6 +123,7 @@ 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`;
   foreach my $line (split '\n', $conf) {
     next unless $line =~ /^DELEGATES\s+/;