use the ExtUtils::MakeMaker prompt() function to ask about including

gif support instead of <STDIN>

diff --git a/Makefile.PL b/Makefile.PL
index ad83c2ee7fc821fecad1840093f08749d496770c..b9723ed68bca4913c0fd269739291146ad5c478d 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -253,22 +253,22 @@ sub gifcheck {
 
  RETR:
   if (($formats{'gif'} or $formats{'ungif'}) && !$ENV{IM_SUPPRESS_PROMPT}) {
-    print <<EOFF;
+    my $msg = <<EOFF;
 
 You have libgif or libungif installed.  They are both known to have
 bugs.  Imager can crash or display other strange behaviour after
-reading or writing gif images.  Some of the gif tests can even fail
-since they stress some parts of the buggy code.
+reading or writing gif images.  Some of the gif tests can fail since
+they stress some parts of the buggy code.
 
-libungif 4.1.2 and later is safe.  giflib 4.1.3 needs at least one
-patch to have all the bugs fixed, see README for details.
+libungif or libguf 4.1.4 and later is safe.
 
 Of course it's possible your operating system distributor has patched
 all of these problems and you have nothing to worry about.
 
 Do you want to remove gif support? [Y/n]
 EOFF
-    my $resp = <STDIN>;
+    chomp $msg;
+    my $resp = prompt($msg);
     chomp($resp);
     if ($resp ne "n") {
       delete $formats{'gif'};