From 5798823e331c86fb3f97593b0cd2820224767d15 Mon Sep 17 00:00:00 2001 From: pad Date: Sun, 5 Sep 1999 22:59:26 +0000 Subject: focus_out --- perl-install/commands.pm | 2 -- 1 file changed, 2 deletions(-) (limited to 'perl-install/commands.pm') 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] \n(this cp does -Rl by default)\n"; -- cgit v1.2.1