diff options
| author | Michael G Schwern <schwern@pobox.com> | 2005-07-11 17:16:49 -0700 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-13 08:34:53 +0000 |
| commit | 190aa8358ff15caf49faee81d14f298d768b1227 (patch) | |
| tree | 6537f8e2080fa0432318dcdc555207e7d7350af0 /lib | |
| parent | 6a94b120ee88729bcdda97464bd5371758fc8b7d (diff) | |
| download | perl-190aa8358ff15caf49faee81d14f298d768b1227.tar.gz | |
[perl #28385] minor bug in cpan -- the i command does not find author
From: "Michael G Schwern via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-28385-116951.3.97645870397305@perl.org>
(and remove a couple of unused variables)
p4raw-id: //depot/perl@25133
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CPAN.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index abcc85ee17..0914e3f8a3 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -1454,13 +1454,14 @@ sub m { # emacs confused here }; sub mimimimimi { # emacs in sync here sub i { my($self) = shift; my(@args) = @_; - my(@type,$type,@m); - @type = qw/Author Bundle Distribution Module/; @args = '/./' unless @args; my(@result); - for $type (@type) { + for my $type (qw/Bundle Distribution Module/) { push @result, $self->expand($type,@args); } + # Authors are always uppercase. + push @result, $self->expand("Author", map { uc $_ } @args); + my $result = @result == 1 ? $result[0]->as_string : @result == 0 ? |