You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/03/11 07:34:24 UTC
cvs commit: modperl-2.0/lib/Apache Reload.pm
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;