github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2025-03-30 22:20:08 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn] Another contributed fix.

Browse Source
This commit is contained in:
hniksic 2000-11-01 16:21:53 -08:00
parent 986c445029
commit 268ac1fc7f
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2000-11-02 Matthew Seaman <m.seaman@inpharmatica.co.uk>
* util/rmold.pl: Various fixes.
2000-11-01 Hrvoje Niksic <hniksic@arsdigita.com> 2000-11-01 Hrvoje Niksic <hniksic@arsdigita.com>
* configure.in: Check for size of long and long long. * configure.in: Check for size of long and long long.

16
util/rmold.pl
View File

@ -31,10 +31,8 @@ if (@ARGV && ($ARGV[0] eq '-v')) {
$verbose = 1; $verbose = 1;
} }
defined($dirs[0] = shift) || ($dirs[0] = '.'); (@dirs = @ARGV) || push (@dirs,'.');
while (defined($_ = shift)) {
@dirs = (@dirs, $_);
}
foreach $_ (@dirs) { foreach $_ (@dirs) {
&procdir($_); &procdir($_);
@ -44,7 +42,7 @@ foreach $_ (@dirs) {
sub procdir sub procdir
{ {
local($dir = $_[0]); local $dir = shift;
local(@lcfiles, @lcdirs, %files, @fl); local(@lcfiles, @lcdirs, %files, @fl);
print STDERR "Processing directory '$dir':\n" if $verbose; print STDERR "Processing directory '$dir':\n" if $verbose;
@ -55,17 +53,17 @@ sub procdir
# Read local files and directories. # Read local files and directories.
foreach $_ (readdir(DH)) { foreach $_ (readdir(DH)) {
/^(\.listing|\.\.?)$/ && next; /^(\.listing|\.\.?)$/ && next;
if (-d "$dir/$_" || -l "$dir/$_") { lstat ("$dir/$_");
@lcdirs = (@lcdirs, $_); if (-d _) {
push (@lcdirs, $_);
} }
else { else {
@lcfiles = (@lcfiles, $_); push (@lcfiles, $_);
} }
} }
closedir(DH); closedir(DH);
# Parse .listing # Parse .listing
if (open(FD, "<$dir/.listing")) { if (open(FD, "<$dir/.listing")) {
@files = ();
while (<FD>) while (<FD>)
{ {
# Weed out the line beginning with 'total' # Weed out the line beginning with 'total'