perldelta clarification

[perl5.git] / utils / ptar.PL

diff --git a/utils/ptar.PL b/utils/ptar.PL
index d986c21..66242e3 100644 (file)
--- a/utils/ptar.PL
+++ b/utils/ptar.PL
@@ -35,7 +35,7 @@ use File::Spec;
 
 my $script = File::Spec->catfile(
             File::Spec->catdir(
-                File::Spec->updir, qw[ext Archive-Tar bin]
+                File::Spec->updir, qw[cpan Archive-Tar bin]
             ), "ptar");
 
 if (open(IN, $script)) {