X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fconfig_h.pl;h=cf69b2ad320be7b0fd2924e5e7627603727ae9a6;hb=895db0573cd9583dc82283b895e3e369e2081e45;hp=7c1deec530d415177a49a95bf79d6709ea20f921;hpb=9b70c55fe958b1da7c3c2de3a97fa739b1687085;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/config_h.pl b/Porting/config_h.pl
index 7c1deec..cf69b2a 100755
--- a/Porting/config_h.pl
+++ b/Porting/config_h.pl
@@ -3,7 +3,7 @@
 # This script reorders config_h.SH after metaconfig
 # Changing metaconfig is too complicated
 #
-# Copyright (C) 2005-2005 by H.Merijn Brand (m)'05 [25-05-2005]
+# Copyright (C) 2005-2007 by H.Merijn Brand (m)'07 [18-04-2007]
 #
 # You may distribute under the terms of either the GNU General Public
 # License or the Artistic License, as specified in the README file.
@@ -55,6 +55,25 @@ do {
 	}
     } while ($changed);
 
+# 30327
+for (grep m{echo .Extracting \$CONFIG_H} => @ch) {
+    my $case = join "\n",
+	qq{case "\$CONFIG_H" in},
+	qq{already-done) echo "Not re-extracting config.h" ;;},
+	qq{*)}, "";
+    s{^(?=echo .Extracting)}{$case}m;
+    }
+push @ch, ";;\nesac\n";
+
+
 open  $ch, "> $cSH" or die "Cannot write $cSH: $!\n";
+print $ch <<EOW;
+# THIS IS A GENERATED FILE
+# DO NOT HAND-EDIT
+#
+# See Porting/config_h.pl
+
+EOW
+
 print $ch @ch;
 close $ch;