[svn:modperl-modules] r273 - Apache-Peek/trunk

Author: pgollucci@p6m7g8.com
Date: Sun Aug  6 19:17:01 2006
New Revision: 273

Modified:
   Apache-Peek/trunk/Makefile.PL

Log:
minor cleanups


Modified: Apache-Peek/trunk/Makefile.PL
==============================================================================
--- Apache-Peek/trunk/Makefile.PL	(original)
+++ Apache-Peek/trunk/Makefile.PL	Sun Aug  6 19:17:01 2006
@@ -4,7 +4,7 @@
 use File::Copy ();
 use Symbol;
 
-use constant DEVEL => getpwuid($>) =~ /^(?:stas|pgollucci)$/o;
+use constant DEVEL => getpwuid($>) =~ /^(?:stas|pgollucci)$/;
 
 my $VERSION = '1.06';
 
@@ -22,7 +22,7 @@
 );
 
 MAIN: {
-  exit &main();
+  exit main();
 }
 
 sub main {

• [svn:modperl-modules] r273 - Apache-Peek/trunk by pgollucci@p6m7g8.com