diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 01:18:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 01:18:04 +0000 |
| commit | 0ff3fa1a9e904b2e8741c50731fed324d1b1afb7 (patch) | |
| tree | a6b7d678741aad5d41e5eb388c08592e8c389318 /lib/CPAN.pm | |
| parent | 4ff843088efaf20f33954a488d457e0ee0278019 (diff) | |
| download | perl-0ff3fa1a9e904b2e8741c50731fed324d1b1afb7.tar.gz | |
use $Config{version} rather than $] where appropriate
p4raw-id: //depot/perl@4777
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 432e72da05..2f22b773c7 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -3325,7 +3325,8 @@ sub perl { $perl ||= $candidate if MM->maybe_command($candidate); unless ($perl) { my ($component,$perl_name); - DIST_PERLNAME: foreach $perl_name ($^X, 'perl', 'perl5', "perl$]") { + DIST_PERLNAME: + foreach $perl_name ($^X, 'perl', 'perl5', "perl$Config::Config{version}") { PATH_COMPONENT: foreach $component (MM->path(), $Config::Config{'binexp'}) { next unless defined($component) && $component; |