From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 9 May 2007 14:17:57 +0000 (+0000)
Subject: 1. Add Unicode UCD version; 2. sort *unique*; 3. remove win32/ext
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59189dd75582cc7b0d28cfbd681ed4c90e6e59de;p=p5sagit%2Fp5-mst-13.2.git

1. Add Unicode UCD version; 2. sort *unique*; 3. remove win32/ext

p4raw-id: //depot/perl@31176
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index f79cc15..d2a2913 100644
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -7,7 +7,7 @@ use warnings;
 use File::Find;
 use ExtUtils::MM_Unix;
 
-my @lines;
+my %lines;
 find(sub {
     /(\.pm|_pm\.PL)$/ or return;
     /PPPort\.pm$/ and return;
@@ -33,8 +33,14 @@ find(sub {
 	    );
     $module =~ s{/}{::}g;
     $module =~ s/(\.pm|_pm\.PL)$//;
-    push @lines, sprintf "\t%-24s=> $version,\n", "'$module'";
-}, 'lib', 'ext', 'win32/ext', 'vms/ext', 'symbian/ext');
+    $lines{sprintf "\t%-24s=> $version,\n", "'$module'"}++;
+}, 'lib', 'ext', 'vms/ext', 'symbian/ext');
+
+if (open my $ucdv, "<", "lib/unicore/version") {
+    chomp (my $ucd = <$ucdv>);
+    $lines{sprintf "\t%-24s=> '$ucd',\n", "'Unicode'"}++;
+    close $ucdv;
+    }
 print "    $] => {\n";
-print sort @lines;
+print sort keys %lines;
 print "    },\n";