Document UNIVERSAL->import deprecation in perldelta

[p5sagit/p5-mst-13.2.git] / utils / cpan.PL

diff --git a/utils/cpan.PL b/utils/cpan.PL
index 5e12d78..c7c2668 100644 (file)
--- a/utils/cpan.PL
+++ b/utils/cpan.PL
@@ -33,7 +33,7 @@ $Config{startperl}
 
 use File::Spec;
 
-my $cpan = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "CPAN", "bin"), "cpan");
+my $cpan = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, qw(cpan CPAN scripts)), "cpan");
 
 if (open(CPAN, $cpan)) {
     print OUT <CPAN>;