From a04f6bf7cb90e127565848e1fb2895d3a2e6510d Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Wed, 4 May 2011 15:58:19 +0200
Subject: [PATCH] Simplify gen_core_pm.pl, then just rename it to indicate it's
 a generic way to merge multiple .pm files into one.

---
 build/{gen_core_pm.pl => merge_pm.pl} | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)
 rename build/{gen_core_pm.pl => merge_pm.pl} (63%)

diff --git a/build/gen_core_pm.pl b/build/merge_pm.pl
similarity index 63%
rename from build/gen_core_pm.pl
rename to build/merge_pm.pl
index ce4198ed4fa..e3d98b997b9 100644
--- a/build/gen_core_pm.pl
+++ b/build/merge_pm.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2011, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -15,7 +15,6 @@
 
 END_SETTING
 
-my %classnames;
 foreach my $file (@files) {
     print "# From $file\n\n";
     open(my $fh, "<:utf8",  $file) or die "$file: $!";
@@ -23,13 +22,6 @@
     my $x = <$fh>;
     close $fh;
     print $x;
-    foreach ($x =~ /\bclass\s+(\S+)/g) { $classnames{$_}++; }
 }
 
-print "CHECK {\n";
-foreach (keys(%classnames)) {
-    print "    Perl6::Compiler.import('$_');\n";
-}
-print "}\n";
-
 print "\n# vim: set ft=perl6 nomodifiable :\n";