The first chunk is cosmetic only; the second one avoids an infinite loop if
the install of Module::Build fails.

--- ./Makefile.PL-pre	Fri Nov 14 05:55:04 2003
+++ ./Makefile.PL	Sun Dec 14 17:15:52 2003
@@ -7,8 +7,7 @@
 	('  Install Module::Build now from CPAN?', 'y');
       
       unless ($yn =~ /^y/i) {
-	warn " *** Cannot install without Module::Build.  Exiting ...\n";
-	exit 1;
+	die " *** Cannot install without Module::Build.  Exiting ...\n";
       }
 
       require Cwd;
@@ -19,7 +18,8 @@
       my $cwd = Cwd::cwd();
       my $makefile = File::Spec->rel2abs($0);
       
-      CPAN::Shell->install('Module::Build::Compat');
+      CPAN::Shell->install('Module::Build::Compat')
+	or die " *** Cannot install without Module::Build.  Exiting ...\n";
       
       chdir $cwd or die "Cannot chdir() back to $cwd: $!";
       exec $^X, $makefile, @ARGV;  # Redo now that we have Module::Build