github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2025-04-24 12:10:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks to freeopts.

Browse Source
This commit is contained in:
Micah Cowan 2008-10-25 07:13:24 -07:00
parent a32d41c5d0
commit b4ebafa39c
1 changed files with 3 additions and 3 deletions

6
util/freeopts
View File

@ -29,7 +29,7 @@ END {
my $cols = 0;
my $max_cols = 13;
my $opt_chars =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%+/";
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
print "Free chars:\n\t";
for (my $i = 0; $i < length $opt_chars; ++$i, ++$cols) {
if ($cols == $max_cols) {
@ -39,9 +39,9 @@ END {
my $opt = substr($opt_chars,$i,1);
print ' ';
if (!$used_chars{ $opt }) {
print $opt;
print "-$opt";
} else {
print ' ';
print ' ';
}
}
print "\n";