use the ExtUtils::MakeMaker prompt() function to ask about including
authorTony Cook <tony@develop=help.com>
Mon, 26 Jun 2006 13:14:54 +0000 (13:14 +0000)
committerTony Cook <tony@develop=help.com>
Mon, 26 Jun 2006 13:14:54 +0000 (13:14 +0000)
gif support instead of <STDIN>

Makefile.PL

index ad83c2e..b9723ed 100644 (file)
@@ -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'};