--- cpan.orig 2006-07-04 10:33:57.000000000 -0400
+++ cpan 2006-07-04 10:35:34.000000000 -0400
@@ -187,6 +187,7 @@
'i' => 'install',
'm' => 'make',
't' => 'test',
+ 'install' => 'install',
);
my @CPAN_OPTIONS = grep { $_ ne $Default } sort keys %CPAN_METHODS;
@@ -210,7 +211,7 @@
i => [ \&_default, 1, 0, 'Running `make install`' ],
'm' => [ \&_default, 1, 0, 'Running `make`' ],
t => [ \&_default, 1, 0, 'Running `make test`' ],
-
+ install => [ \&_default, 1, 0, 'Running `make install`' ],
);
my %Method_table_index = (
@@ -245,7 +246,7 @@
ref $Method_table{$option}[ $Method_table_index{code} ] eq ref sub {};
print "$Method_table{$option}[ $Method_table_index{description} ] " .
- "-- ignoring other opitions\n" if $option_count > 1;
+ "-- ignoring other options\n" if $option_count > 1;
print "$Method_table{$option}[ $Method_table_index{description} ] " .
"-- ignoring other arguments\n"
if( @ARGV && ! $Method_table{$option}[ $Method_table_index{takes_args} ] );