[svn:parrot] r19009 - trunk/tools/build

[petdance]

Author: petdance
Date: Thu Jun 14 14:39:18 2007
New Revision: 19009

Modified:
   trunk/tools/build/headerize.pl

Log:
headerizer ignores dupe object files now

Modified: trunk/tools/build/headerize.pl
==============================================================================
--- trunk/tools/build/headerize.pl      (original)
+++ trunk/tools/build/headerize.pl      Thu Jun 14 14:39:18 2007
@@ -263,7 +263,8 @@
     GetOptions( 'verbose' => \$opt{verbose}, ) or exit(1);
 
     my $nfuncs = 0;
-    my @ofiles = @ARGV;
+    my %ofiles = map {($_,1)} @ARGV;
+    my @ofiles = sort keys %ofiles;
     my %files;
 
     # Walk the object files and find corresponding source (either .c or .pmc)
@@ -271,7 +272,7 @@
         next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;
 
         my $cfile = $ofile;
-        $cfile =~ s/\Q$PConfig{o}\E$/.c/;
+        $cfile =~ s/\Q$PConfig{o}\E$/.c/ or die "$cfile doesn't look like an 
object file";
 
         my $pmcfile = $ofile;
         $pmcfile =~ s/\Q$PConfig{o}\E$/.pmc/;