IO::Dir destructor

[p5sagit/p5-mst-13.2.git] / Porting / corelist.pl

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index c32a176..5c25d0a 100644 (file)
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -36,6 +36,8 @@ find(sub {
     $lines{sprintf "\t%-24s=> $version,\n", "'$module'"}++;
 }, 'lib', 'ext', 'vms/ext', 'symbian/ext');
 
+-e 'configpm' and $lines{sprintf "\t%-24s=> undef,\n", "'Config'"}++;
+
 if (open my $ucdv, "<", "lib/unicore/version") {
     chomp (my $ucd = <$ucdv>);
     $lines{sprintf "\t%-24s=> '$ucd',\n", "'Unicode'"}++;