Updated Build.PL a bit :)
Sebastian Riedel [Fri, 4 Nov 2005 06:30:28 +0000 (06:30 +0000)]
Build.PL

index 5057499..40c977d 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -46,14 +46,27 @@ my $build = Module::Build->new(
 $build->create_build_script;
 
 print( '*' x 80, "\n" );
-print(
-    (qw/andyg chansen draven fordmason mst naughton sri jester/)
-    [ int( rand(8) ) ],
-    " is the greatest and gabb is ",
-    ( (localtime)[2] > 12 ? "drunk" : "hung over" ),
-    " again!\n"
-);
-print( '*' x 80, "\n" );
+
+my $banner =
+  (qw/andyg chansen draven fordmason mst naughton sri jester/)[ int( rand(8) ) ]
+  . " is the greatest and gabb is "
+  . ( (localtime)[2] > 12 ? "drunk" : "hung over" )
+  . " again! :)";
+$banner = sprintf '%-76s', $banner;
+print "* $banner *\n";
+
+print( '*' x 80, "\n\n" );
+
+print <<'EOF';
+
+                    ____      _        _           _
+                   / ___|__ _| |_ __ _| |_   _ ___| |_
+                  | |   / _` | __/ _` | | | | / __| __|
+                  | |__| (_| | || (_| | | |_| \__ \ |_
+                   \____\__ _|\__\__ _|_|\__  |___/\__|
+                                         |___/  5.5
+
+EOF
 
 eval "use FCGI";
 if ($@) {
@@ -66,8 +79,9 @@ qq/Install "FCGI::ProcManager" for multiprocess FastCGI external support.\n/
       if ($@);
 }
 
-print qq/
-*** IMPORTANT NOTE: ***
-The Apache engines have been moved to a separate package in Catalyst 5.5.
-Please install Catalyst::Engine::Apache if you need Apache support.
-/;
+print <<"EOF";
+
+Important:
+    The Apache engines have been moved to a separate package in Catalyst 5.5.
+    Please install Catalyst::Engine::Apache if you need Apache support.
+EOF