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

"[email protected]"@cvs.perl.org Sun, 6 Aug 2006 19:17:01 -0700 (PDT)

Newsgroups	perl.modperl.modules.svn
Message-ID	<[email protected]>

Author: [email protected]
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 {