Commit d62b678624 for perl
commit d62b678624ecbb16156921bfd30e83ef219932ea
Author: Yves Orton <demerphq@gmail.com>
Date: Mon Sep 21 17:16:27 2026 +0200
Add an epigraph to keywords.c
This has to be in the generator, which means keywords.h was updated
as well.
If thought can corrupt language, language can also corrupt thought.
--George Orwell
["Politics and the English Language"]
diff --git a/keywords.c b/keywords.c
index f6788d9927..886e060fd2 100644
--- a/keywords.c
+++ b/keywords.c
@@ -4,6 +4,13 @@
* Any changes made here will be lost!
*/
+/*
+ * If thought can corrupt language, language can also corrupt thought.
+ * --George Orwell
+ *
+ * ["Politics and the English Language"]
+ */
+
#include "EXTERN.h"
#define PERL_IN_KEYWORDS_C
#include "perl.h"
@@ -3612,5 +3619,5 @@ unknown:
}
/* Generated from:
- * 23f7d491b2465a6afedc597fbe7d069b433c61cb2e3b5355759ce585b05f2595 regen/keywords.pl
+ * c62898f89dd6a63c0deff80c8c0e1c31656a9fb51fbcb2bd4c71ba6846c73228 regen/keywords.pl
* ex: set ro ft=c: */
diff --git a/keywords.h b/keywords.h
index 3709281ae3..e27abb2f1b 100644
--- a/keywords.h
+++ b/keywords.h
@@ -284,5 +284,5 @@
#define KEY_y 268
/* Generated from:
- * 23f7d491b2465a6afedc597fbe7d069b433c61cb2e3b5355759ce585b05f2595 regen/keywords.pl
+ * c62898f89dd6a63c0deff80c8c0e1c31656a9fb51fbcb2bd4c71ba6846c73228 regen/keywords.pl
* ex: set ro ft=c: */
diff --git a/regen/keywords.pl b/regen/keywords.pl
index dd550f1cce..c285255269 100755
--- a/regen/keywords.pl
+++ b/regen/keywords.pl
@@ -28,7 +28,17 @@ my $h = open_new('keywords.h', '>',
file => 'keywords.h', style => '*',
copyright => [1994 .. 1997, 1999 .. 2002, 2005 .. 2007]});
my $c = open_new('keywords.c', '>',
- { by => 'regen/keywords.pl', from => 'its data', style => '*'});
+ { by => 'regen/keywords.pl', from => 'its data', style => '*',
+ quote => <<'EOQ' });
+ */
+
+/*
+ * If thought can corrupt language, language can also corrupt thought.
+ * --George Orwell
+ *
+ * ["Politics and the English Language"]
+ */
+EOQ
my %by_strength;