[svn:dbi] r2452 - dbi/trunk

[timbo]

Author: timbo
Date: Wed Jan 25 03:51:31 2006
New Revision: 2452

Modified:
   dbi/trunk/Makefile.PL
Log:
Use prompt() instead of <> in perl version warning.


Modified: dbi/trunk/Makefile.PL
==============================================================================
--- dbi/trunk/Makefile.PL       (original)
+++ dbi/trunk/Makefile.PL       Wed Jan 25 03:51:31 2006
@@ -11,21 +11,7 @@ BEGIN {
     unshift @INC, "lib";
 }
 
-if ($] < 5.008000) {
-       warn qq{\a\a\a
-**************************************************************************
-  Perl versions below 5.6.1 are no longer supported by the DBI.
-  Perl versions 5.6.x may fail during installation with a complaint
-  about the use of =head3 in the pod documentation.
-  Press return to continue...
-**************************************************************************
-};
-    sleep 3;
-    my $pause = <>;
-}
-
-
-use ExtUtils::MakeMaker 5.16, qw(WriteMakefile $Verbose);
+use ExtUtils::MakeMaker 5.16, qw(WriteMakefile $Verbose prompt);
 use Getopt::Long;
 use Config;
 use File::Find;
@@ -55,6 +41,18 @@ GetOptions(qw(v! g! thread!))
 
 $::opt_g &&= '-g';  # convert to actual string
 
+if ($] < 5.008000) {
+       warn qq{\a
+**************************************************************************
+  Perl versions below 5.6.1 are no longer supported by the DBI.
+  Perl versions 5.6.x may fail during installation with a complaint
+  about the use of =head3 in the pod documentation.
+**************************************************************************
+};
+    prompt("Press return to continue...");
+}
+
+
 if ($Config{useithreads}) {
     print "\n";
     print "*** You are using a perl configured with threading enabled.\a\n";