Commit 8026d92d95 for perl

commit 8026d92d955282cb89d0a7fc21b48078c684d3ac
Author: Yves Orton <demerphq@gmail.com>
Date:   Mon Sep 21 17:16:27 2026 +0200

    Add an epigraph to long_names.c

    Generated by regen/embed.pl.

    What's in a name? That which we call a rose
    By any other word would smell as sweet.
    --Juliet

    [Act II, scene ii of _Romeo and Juliet_]

diff --git a/long_names.c b/long_names.c
index 0acaac1703..9c2b01a6a9 100644
--- a/long_names.c
+++ b/long_names.c
@@ -19,6 +19,14 @@
  * Edit those files and run 'make regen_headers' to effect changes.
  */

+/*
+ *      What's in a name? That which we call a rose
+ *      By any other word would smell as sweet.
+ *              --Juliet
+ *
+ *     [Act II, scene ii of _Romeo and Juliet_]
+ */
+
 /* This file is automatically generated by embed.pl.
  *
  * Its current purpose is to contain functions that are automatically
diff --git a/regen/embed.pl b/regen/embed.pl
index 6ae0d02456..c8ef16edae 100755
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -5538,7 +5538,17 @@ sub find_undefs {

 sub generate_long_names_c {
     my $longs = shift;
-    my $fh = open_print_header("long_names.c");
+    my $fh = open_print_header("long_names.c", <<'EOQ');
+ */
+
+/*
+ *      What's in a name? That which we call a rose
+ *      By any other word would smell as sweet.
+ *              --Juliet
+ *
+ *     [Act II, scene ii of _Romeo and Juliet_]
+ */
+EOQ

     print $fh <<~'EOT';
 /* This file is automatically generated by embed.pl.