diff options
| author | pad <pad@mandriva.com> | 1999-09-05 22:59:26 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-05 22:59:26 +0000 |
| commit | 5798823e331c86fb3f97593b0cd2820224767d15 (patch) | |
| tree | 5dccbae0c0d401beeb09a46154847884e1f474b3 /perl-install/commands.pm | |
| parent | 38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (diff) | |
| download | drakx-5798823e331c86fb3f97593b0cd2820224767d15.tar drakx-5798823e331c86fb3f97593b0cd2820224767d15.tar.gz drakx-5798823e331c86fb3f97593b0cd2820224767d15.tar.bz2 drakx-5798823e331c86fb3f97593b0cd2820224767d15.tar.xz drakx-5798823e331c86fb3f97593b0cd2820224767d15.zip | |
focus_out
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index bd511c850..b345acacb 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -10,7 +10,6 @@ my $BUFFER_SIZE = 1024; 1; - sub getopts { my $o = shift; my @r = map { '' } (@_ = split //, $_[0]); @@ -212,7 +211,6 @@ sub ls { } else { print "$_\n"; } } } - sub cp { my ($force) = getopts(\@_, qw(f)); @_ >= 2 or die "usage: cp [-f] <sources> <dest>\n(this cp does -Rl by default)\n"; |