Get sub.t working under minitest

[perl5.git] / utils / enc2xs.PL

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