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

[stas]

stas        01/11/12 20:34:31

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  - style tweaks
  
  Revision  Changes    Path
  1.5       +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.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- RegistryCooker.pm 2001/10/19 10:37:20     1.4
  +++ RegistryCooker.pm 2001/11/13 04:34:31     1.5
  @@ -168,7 +168,7 @@
       my $rc = Apache::OK;
       my $cv = \&{"$package\::handler"};
   
  -    { # run the code, preserve warnings setup when it's done
  +    { # run the code if $r->seqno, preserve warnings setup when it's done
           no warnings;
           eval { $rc = &{$cv}($r, @_) } if $r->seqno;
           $o->[STATUS] = $rc;
  @@ -662,7 +662,7 @@
   #########################################################################
   
   sub install_aliases {
  -    my ($class, $rh_aliases) = @_;
  +    my($class, $rh_aliases) = @_;
   
       no strict 'refs';
       while (my($k,$v) = each %$rh_aliases) {
  @@ -677,7 +677,7 @@
   
   ### helper methods
   
  -sub debug{
  +sub debug {
       my $o = shift;
       $o->[REQ]->log_error("$$: $o->[CLASS]: " . join '', @_);
   }