From: Cristy <urban-warrior@imagemagick.org>
Date: Fri, 19 Jan 2018 00:49:20 +0000 (-0500)
Subject: https://www.imagemagick.org/discourse-server/viewtopic.php?f=7&t=12502
X-Git-Tag: 7.0.7-22~35
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=37bd7cecb58a4dccb5922c4fb8999d7db7672291;p=imagemagick

https://www.imagemagick.org/discourse-server/viewtopic.php?f=7&t=12502
---

diff --git a/PerlMagick/Magick.pm b/PerlMagick/Magick.pm
index 4259b454d..1ded89e6e 100644
--- a/PerlMagick/Magick.pm
+++ b/PerlMagick/Magick.pm
@@ -50,6 +50,7 @@ sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()
     # XS function.  If a constant is not found then control is passed
     # to the AUTOLOAD in AutoLoader.
+    no warnings;
 
     my $constname;
     ($constname = $AUTOLOAD) =~ s/.*:://;
diff --git a/PerlMagick/quantum/quantum.pm.in b/PerlMagick/quantum/quantum.pm.in
index 716fa100d..3c9cdb117 100644
--- a/PerlMagick/quantum/quantum.pm.in
+++ b/PerlMagick/quantum/quantum.pm.in
@@ -49,6 +49,7 @@ sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()
     # XS function.  If a constant is not found then control is passed
     # to the AUTOLOAD in AutoLoader.
+    no warnings;
 
     my $constname;
     ($constname = $AUTOLOAD) =~ s/.*:://;