perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
Date Tue, 13 Nov 2001 04:34:32 GMT
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 '', @_);
   }
  
  
  

Mime
View raw message