[Catalyst-commits] r6711 - trunk/Catalyst-Runtime

marcus at dev.catalyst.perl.org marcus at dev.catalyst.perl.org
Wed Aug 22 09:25:18 GMT 2007


Author: marcus
Date: 2007-08-22 09:25:18 +0100 (Wed, 22 Aug 2007)
New Revision: 6711

Modified:
   trunk/Catalyst-Runtime/Makefile.PL
Log:
remove drunk joke

Modified: trunk/Catalyst-Runtime/Makefile.PL
===================================================================
--- trunk/Catalyst-Runtime/Makefile.PL	2007-08-22 08:23:57 UTC (rev 6710)
+++ trunk/Catalyst-Runtime/Makefile.PL	2007-08-22 08:25:18 UTC (rev 6711)
@@ -46,16 +46,6 @@
 auto_install;
 WriteAll;
 
-print( '*' x 74, "\n" );
-my $banner =
-  (qw/andyg chansen draven fordmason mst naughton sri jester
-      jrockway ningu nothingmuch LTjake/)[ int( rand(12) ) ]
-  . " is the greatest and gabb is "
-  . ( (localtime)[2] > 12 ? "drunk" : "hung over" )
-  . " again!";
-print " $banner \n";
-print( '*' x 74, "\n" );
-
 print <<"EOF";
 
  Important:




More information about the Catalyst-commits mailing list