In embed.pl, move the logic for perlapi.c's Tolkien quote out from do_not_edit()
authorNicholas Clark <nick@ccl4.org>
Sat, 22 Jan 2011 23:29:59 +0000 (23:29 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 22 Jan 2011 23:29:59 +0000 (23:29 +0000)
Previously do_not_edit() has a special case for this based on the filename
parameter. Now the code to add the comment is next to the relevant call to
do_not_edit().

regen/embed.pl

index d6aef5a..6c60ee1 100755 (executable)
@@ -65,17 +65,6 @@ Any changes made here will be lost!
 
 Edit those files and run 'make regen_headers' to effect changes.
 
-EOW
-
-    $warning .= <<EOW if $file eq 'perlapi.c';
-
-Up to the threshold of the door there mounted a flight of twenty-seven
-broad stairs, hewn by some unknown art of the same black stone.  This
-was the only entrance to the tower; ...
-
-    [p.577 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
-
-
 EOW
 
     if ($file =~ m:\.[ch]$:) {
@@ -814,7 +803,19 @@ EOT
 safer_close($capih);
 rename_if_different('perlapi.h-new', 'perlapi.h');
 
-print $capi do_not_edit ("perlapi.c"), <<'EOT';
+my $warning = do_not_edit ("perlapi.c");
+$warning =~ s! \*/\n! *
+ *
+ * Up to the threshold of the door there mounted a flight of twenty-seven
+ * broad stairs, hewn by some unknown art of the same black stone.  This
+ * was the only entrance to the tower; ...
+ *
+ *     [p.577 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
+ *
+ */
+!;
+
+print $capi $warning, <<'EOT';
 
 #include "EXTERN.h"
 #include "perl.h"