annotate S_ithread_create create_destruct_mutex use

[perl5.git] / utils / corelist.PL

diff --git a/utils/corelist.PL b/utils/corelist.PL
index fd1afbb..9bad775 100644 (file)
--- a/utils/corelist.PL
+++ b/utils/corelist.PL
@@ -35,7 +35,7 @@ use File::Spec;
 
 my $script = File::Spec->catfile(
             File::Spec->catdir(
-                File::Spec->updir, qw[lib Module CoreList bin]
+                File::Spec->updir, qw[dist Module-CoreList]
             ), "corelist");
 
 if (open(IN, $script)) {