diff options
| author | fukachan <fukachan> | 2002-12-15 14:13:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-15 14:13:16 +0000 |
| commit | 538020f2f53f0b0ceaca18a0925d5e317524ef7b (patch) | |
| tree | ad7c191297283680adea98a6decb00c9fac0ccd6 | |
| parent | 21328acc975ca535b45263dd908bdee41fd954e7 (diff) | |
| download | fml8-538020f2f53f0b0ceaca18a0925d5e317524ef7b.tar.gz fml8-538020f2f53f0b0ceaca18a0925d5e317524ef7b.tar.bz2 fml8-538020f2f53f0b0ceaca18a0925d5e317524ef7b.zip | |
fix comments.
not pass $du_args->{options} to FML::Command::DirUtils module.
| -rw-r--r-- | fml/lib/FML/Command/Admin/dir.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm index 46afa447..3c1b229a 100644 --- a/fml/lib/FML/Command/Admin/dir.pm +++ b/fml/lib/FML/Command/Admin/dir.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: dir.pm,v 1.6 2002/09/22 14:56:44 fukachan Exp $ +# $FML: dir.pm,v 1.7 2002/11/23 15:20:00 fukachan Exp $ # package FML::Command::Admin::dir; @@ -15,7 +15,7 @@ use Carp; =head1 NAME -FML::Command::Admin::dir - show "ls" results +FML::Command::Admin::dir - show "ls -l" results =head1 SYNOPSIS @@ -23,7 +23,7 @@ See C<FML::Command> for more details. =head1 DESCRIPTION -show "ls" results +show "ls -l" results. =head1 METHODS @@ -71,8 +71,9 @@ sub process my $dirreg = $regexp->{ directory }; # analyze ... + # XXX-TODO: "admin ls -i -a tmp" ignores "tmp" but not inform the error. for my $x (@$options) { - # restrict the file name + # XXX-TODO: correct? we restrict the "ls" option pattern here. if ($x =~ /^($dirreg)$/) { $du_args->{ opt_ls } = $1; } @@ -80,7 +81,9 @@ sub process push(@argv, $x); } } - $du_args->{ options } = \@argv; + + # XXX-TODO: $du_args->{ options } is used later for what ? + # $du_args->{ options } = \@argv; use FML::Command::DirUtils; my $obj = new FML::Command::DirUtils; |