$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 ($@) {
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