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/lib/Apache Reload.pm
Date Thu, 11 Mar 2004 06:34:24 GMT
stas        2004/03/10 22:34:24

  Modified:    lib/Apache Reload.pm
  Log:
  a few readability tweaks
  
  Revision  Changes    Path
  1.14      +3 -3      modperl-2.0/lib/Apache/Reload.pm
  
  Index: Reload.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Reload.pm,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -u -r1.13 -r1.14
  --- Reload.pm	4 Mar 2004 06:01:05 -0000	1.13
  +++ Reload.pm	11 Mar 2004 06:34:24 -0000	1.14
  @@ -35,7 +35,7 @@
   
   sub import {
       my $class = shift;
  -    my($package,$file) = (caller)[0,1];
  +    my($package, $file) = (caller)[0,1];
   
       $class->register_module($package, $file);
   }
  @@ -85,7 +85,7 @@
   
       if ($TouchFile) {
           warn "Checking mtime of $TouchFile\n" if $DEBUG;
  -        my $touch_mtime = (stat($TouchFile))[9] || return 1;
  +        my $touch_mtime = (stat $TouchFile)[9] || return 1;
           return 1 unless $touch_mtime > $TouchTime;
           $TouchTime = $touch_mtime;
           open my $fh, $TouchFile or die "Can't open '$TouchFile': $!";
  @@ -102,7 +102,7 @@
                   $TouchModules || 
                   (ref($o) && $o->dir_config("ReloadModules")) || 
                   '';
  -        my @extra = split(/\s+/, $ExtraList);
  +        my @extra = split /\s+/, $ExtraList;
           foreach (@extra) {
               if (/(.*)::\*$/) {
                   my $prefix = $1;
  
  
  

Mime
View raw message