cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm

[stas]

stas        2002/12/27 23:13:26

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  constant.pm already wrappes the values into a sub call, so no need to do
  it twice
  
  Revision  Changes    Path
  1.25      +3 -3      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.24
  retrieving revision 1.25
  diff -u -r1.24 -r1.25
  --- RegistryCooker.pm 24 Dec 2002 01:51:40 -0000      1.24
  +++ RegistryCooker.pm 28 Dec 2002 07:13:26 -0000      1.25
  @@ -76,9 +76,9 @@
   # constant subs
   #
   #########################################################################
  -use constant NOP   => sub {   };
  -use constant TRUE  => sub { 1 };
  -use constant FALSE => sub { 0 };
  +use constant NOP   => '';
  +use constant TRUE  => 1;
  +use constant FALSE => 0;
   
   
   use constant NAMESPACE_ROOT => 'ModPerl::ROOT';