cvs: CVSROOT / loginfo.pl
| From: | Andrei Zmievski | Date: | Fri, 12 May 2000 13:56:23 +0000 |
| Subject: | cvs: CVSROOT / loginfo.pl | ||
| Groups: | php.dev | ||
| Request: | Send a blank email to php-dev+get-18650@lists.php.net to get a copy of this message | ||
andrei Fri May 12 15:56:23 2000 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
Conform to Perl recommendations.
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.28 CVSROOT/loginfo.pl:1.29
--- CVSROOT/loginfo.pl:1.28 Fri May 12 15:52:59 2000
+++ CVSROOT/loginfo.pl Fri May 12 15:56:23 2000
@@ -278,7 +278,7 @@
foreach my $file (@files) {
(my $dir = $file) =~ s#[^/]+$##;
$dir =~ s/^$module//;
- $file =~ s#^.+/(.+)$#\1#;
+ $file =~ s#^.+/(.+)$#$1#;
push @{ $dirfiles{$dir} }, $file;
}
return sort keys %dirfiles;