annotate S_ithread_create create_destruct_mutex use

[perl5.git] / utils / piconv.PL

diff --git a/utils/piconv.PL b/utils/piconv.PL
index e7be984..ca8a8cf 100644 (file)
--- a/utils/piconv.PL
+++ b/utils/piconv.PL
@@ -33,7 +33,7 @@ $Config{startperl}
 
 use File::Spec;
 
-my $piconv = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "ext", "Encode", "bin"), "piconv");
+my $piconv = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "cpan", "Encode", "bin"), "piconv");
 
 if (open(PICONV, $piconv)) {
     print OUT <PICONV>;