summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--av.c6
-rw-r--r--deb.c6
-rw-r--r--doio.c10
-rw-r--r--doop.c4
-rw-r--r--dump.c6
-rwxr-xr-xembed.pl4
-rw-r--r--ext/DynaLoader/dl_dyld.xs12
-rw-r--r--ext/DynaLoader/dl_next.xs12
-rw-r--r--globals.c6
-rw-r--r--gv.c4
-rw-r--r--hv.c6
-rw-r--r--locale.c16
-rw-r--r--malloc.c4
-rw-r--r--mathoms.c10
-rw-r--r--mg.c6
-rw-r--r--miniperlmain.c6
-rw-r--r--mro.c6
-rw-r--r--numeric.c6
-rw-r--r--op.c12
-rw-r--r--os2/perlrexx.c6
-rw-r--r--pad.c16
-rw-r--r--perl.c6
-rw-r--r--perlio.c2
-rw-r--r--perly.y6
-rw-r--r--pod/perlhack.pod56
-rw-r--r--pp.c7
-rw-r--r--pp_ctl.c14
-rw-r--r--pp_hot.c6
-rw-r--r--pp_pack.c2
-rw-r--r--pp_sort.c6
-rw-r--r--pp_sys.c2
-rw-r--r--regcomp.c4
-rw-r--r--regexec.c6
-rw-r--r--run.c8
-rw-r--r--scope.c6
-rw-r--r--sv.c11
-rw-r--r--taint.c8
-rw-r--r--toke.c4
-rw-r--r--universal.c8
-rw-r--r--utf8.c15
-rw-r--r--util.c6
-rw-r--r--vms/vms.c15
-rw-r--r--win32/perllib.c6
-rw-r--r--xsutils.c6
44 files changed, 272 insertions, 102 deletions
diff --git a/av.c b/av.c
index 35748a6924..c597ea2d1a 100644
--- a/av.c
+++ b/av.c
@@ -9,8 +9,10 @@
*/
/*
- * "...for the Entwives desired order, and plenty, and peace (by which they
- * meant that things should remain where they had set them)." --Treebeard
+ * '...for the Entwives desired order, and plenty, and peace (by which they
+ * meant that things should remain where they had set them).' --Treebeard
+ *
+ * [p.476 of _The Lord of the Rings_, III/iv: "Treebeard"]
*/
/*
diff --git a/deb.c b/deb.c
index b6dd9d822c..3664d07c58 100644
--- a/deb.c
+++ b/deb.c
@@ -9,8 +9,10 @@
*/
/*
- * "Didst thou think that the eyes of the White Tower were blind? Nay, I
- * have seen more than thou knowest, Gray Fool." --Denethor
+ * 'Didst thou think that the eyes of the White Tower were blind? Nay,
+ * I have seen more than thou knowest, Grey Fool.' --Denethor
+ *
+ * [p.853 of _The Lord of the Rings_, V/vii: "The Pyre of Denethor"]
*/
/*
diff --git a/doio.c b/doio.c
index aa52f39460..273832394d 100644
--- a/doio.c
+++ b/doio.c
@@ -9,10 +9,12 @@
*/
/*
- * "Far below them they saw the white waters pour into a foaming bowl, and
- * then swirl darkly about a deep oval basin in the rocks, until they found
- * their way out again through a narrow gate, and flowed away, fuming and
- * chattering, into calmer and more level reaches."
+ * Far below them they saw the white waters pour into a foaming bowl, and
+ * then swirl darkly about a deep oval basin in the rocks, until they found
+ * their way out again through a narrow gate, and flowed away, fuming and
+ * chattering, into calmer and more level reaches.
+ *
+ * [p.684 of _The Lord of the Rings_, IV/vi: "The Forbidden Pool"]
*/
/* This file contains functions that do the actual I/O on behalf of ops.
diff --git a/doop.c b/doop.c
index 23662d7f2c..cd9b3b4f17 100644
--- a/doop.c
+++ b/doop.c
@@ -9,7 +9,9 @@
*/
/*
- * "'So that was the job I felt I had to do when I started,' thought Sam."
+ * 'So that was the job I felt I had to do when I started,' thought Sam.
+ *
+ * [p.934 of _The Lord of the Rings_, VI/iii: "Mount Doom"]
*/
/* This file contains some common functions needed to carry out certain
diff --git a/dump.c b/dump.c
index 5f899c5d15..fdb8dde3a5 100644
--- a/dump.c
+++ b/dump.c
@@ -9,8 +9,10 @@
*/
/*
- * "'You have talked long in your sleep, Frodo,' said Gandalf gently, 'and
- * it has not been hard for me to read your mind and memory.'"
+ * 'You have talked long in your sleep, Frodo,' said Gandalf gently, 'and
+ * it has not been hard for me to read your mind and memory.'
+ *
+ * [p.220 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains utility routines to dump the contents of SV and OP
diff --git a/embed.pl b/embed.pl
index b7d9bb2389..3204f978e7 100755
--- a/embed.pl
+++ b/embed.pl
@@ -50,7 +50,9 @@ EOW
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.
+was the only entrance to the tower; ...
+
+ [p.577 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
EOW
diff --git a/ext/DynaLoader/dl_dyld.xs b/ext/DynaLoader/dl_dyld.xs
index c8f999bea5..8bdadd75b9 100644
--- a/ext/DynaLoader/dl_dyld.xs
+++ b/ext/DynaLoader/dl_dyld.xs
@@ -9,11 +9,13 @@
*/
/*
- And Gandalf said: 'Many folk like to know beforehand what is to
- be set on the table; but those who have laboured to prepare the
- feast like to keep their secret; for wonder makes the words of
- praise louder.'
-*/
+ * And Gandalf said: 'Many folk like to know beforehand what is to
+ * be set on the table; but those who have laboured to prepare the
+ * feast like to keep their secret; for wonder makes the words of
+ * praise louder.'
+ *
+ * [p.970 of _The Lord of the Rings_, VI/v: "The Steward and the King"]
+ */
/* Porting notes:
diff --git a/ext/DynaLoader/dl_next.xs b/ext/DynaLoader/dl_next.xs
index a7742a1fe3..40842fd4ac 100644
--- a/ext/DynaLoader/dl_next.xs
+++ b/ext/DynaLoader/dl_next.xs
@@ -8,11 +8,13 @@
*/
/*
- And Gandalf said: 'Many folk like to know beforehand what is to
- be set on the table; but those who have laboured to prepare the
- feast like to keep their secret; for wonder makes the words of
- praise louder.'
-*/
+ * And Gandalf said: 'Many folk like to know beforehand what is to
+ * be set on the table; but those who have laboured to prepare the
+ * feast like to keep their secret; for wonder makes the words of
+ * praise louder.'
+ *
+ * [p.970 of _The Lord of the Rings_, VI/v: "The Steward and the King"]
+ */
/* Porting notes:
diff --git a/globals.c b/globals.c
index 22e476754b..25d15ecee4 100644
--- a/globals.c
+++ b/globals.c
@@ -8,8 +8,10 @@
*/
/*
- * "For the rest, they shall represent the other Free Peoples of the World:
- * Elves, Dwarves, and Men." --Elrond
+ * 'For the rest, they shall represent the other Free Peoples of the World:
+ * Elves, Dwarves, and Men.' --Elrond
+ *
+ * [p.275 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/* This file exists to #include "perl.h" _ONCE_ with
diff --git a/gv.c b/gv.c
index eadeb971dc..594fd5b270 100644
--- a/gv.c
+++ b/gv.c
@@ -10,11 +10,13 @@
/*
* 'Mercy!' cried Gandalf. 'If the giving of information is to be the cure
- * of your inquisitiveness, I shall spend all the rest of my days answering
+ * of your inquisitiveness, I shall spend all the rest of my days in answering
* you. What more do you want to know?'
* 'The names of all the stars, and of all living things, and the whole
* history of Middle-earth and Over-heaven and of the Sundering Seas,'
* laughed Pippin.
+ *
+ * [p.599 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
/*
diff --git a/hv.c b/hv.c
index d8406967a8..adb5a4d777 100644
--- a/hv.c
+++ b/hv.c
@@ -9,7 +9,11 @@
*/
/*
- * "I sit beside the fire and think of all that I have seen." --Bilbo
+ * I sit beside the fire and think
+ * of all that I have seen.
+ * --Bilbo
+ *
+ * [p.278 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/*
diff --git a/locale.c b/locale.c
index 460846abfa..f7cb79c6ac 100644
--- a/locale.c
+++ b/locale.c
@@ -9,13 +9,15 @@
*/
/*
- * A Elbereth Gilthoniel,
- * silivren penna míriel
- * o menel aglar elenath!
- * Na-chaered palan-díriel
- * o galadhremmin ennorath,
- * Fanuilos, le linnathon
- * nef aear, si nef aearon!
+ * A Elbereth Gilthoniel,
+ * silivren penna míriel
+ * o menel aglar elenath!
+ * Na-chaered palan-díriel
+ * o galadhremmin ennorath,
+ * Fanuilos, le linnathon
+ * nef aear, si nef aearon!
+ *
+ * [p.238 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* utility functions for handling locale-specific stuff like what
diff --git a/malloc.c b/malloc.c
index 5d53f8c46b..7234801105 100644
--- a/malloc.c
+++ b/malloc.c
@@ -3,7 +3,9 @@
*/
/*
- * "'The Chamber of Records,' said Gimli. 'I guess that is where we now stand.'"
+ * 'The Chamber of Records,' said Gimli. 'I guess that is where we now stand.'
+ *
+ * [p.321 of _The Lord of the Rings_, II/v: "The Bridge of Khazad-Dûm"]
*/
/* This file contains Perl's own implementation of the malloc library.
diff --git a/mathoms.c b/mathoms.c
index 44e1a0d76c..4bac51e28e 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -8,10 +8,12 @@
*/
/*
- * "Anything that Hobbits had no immediate use for, but were unwilling to
- * throw away, they called a mathom. Their dwellings were apt to become
- * rather crowded with mathoms, and many of the presents that passed from
- * hand to hand were of that sort."
+ * Anything that Hobbits had no immediate use for, but were unwilling to
+ * throw away, they called a mathom. Their dwellings were apt to become
+ * rather crowded with mathoms, and many of the presents that passed from
+ * hand to hand were of that sort.
+ *
+ * [p.5 of _The Lord of the Rings_: "Prologue"]
*/
#ifndef NO_MATHOMS
diff --git a/mg.c b/mg.c
index 8497df954e..28eb9d28d7 100644
--- a/mg.c
+++ b/mg.c
@@ -9,8 +9,10 @@
*/
/*
- * "Sam sat on the ground and put his head in his hands. 'I wish I had never
- * come here, and I don't want to see no more magic,' he said, and fell silent."
+ * Sam sat on the ground and put his head in his hands. 'I wish I had never
+ * come here, and I don't want to see no more magic,' he said, and fell silent.
+ *
+ * [p.363 of _The Lord of the Rings_, II/vii: "The Mirror of Galadriel"]
*/
/*
diff --git a/miniperlmain.c b/miniperlmain.c
index bda84e2c58..f60a3e0180 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -9,7 +9,11 @@
*/
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
/* This file contains the main() function for the perl interpreter.
diff --git a/mro.c b/mro.c
index 43214c2137..6740d59d60 100644
--- a/mro.c
+++ b/mro.c
@@ -9,8 +9,10 @@
*/
/*
- * "Which order shall we go in?" said Frodo. "Eldest first, or quickest first?
- * You'll be last either way, Master Peregrin."
+ * 'Which order shall we go in?' said Frodo. 'Eldest first, or quickest first?
+ * You'll be last either way, Master Peregrin.'
+ *
+ * [p.101 of _The Lord of the Rings_, I/iii: "A Conspiracy Unmasked"]
*/
/*
diff --git a/numeric.c b/numeric.c
index 8d6bc971c5..1e847b7239 100644
--- a/numeric.c
+++ b/numeric.c
@@ -9,8 +9,10 @@
*/
/*
- * "That only makes eleven (plus one mislaid) and not fourteen, unless
- * wizards count differently to other people."
+ * "That only makes eleven (plus one mislaid) and not fourteen,
+ * unless wizards count differently to other people." --Beorn
+ *
+ * [p.115 of _The Hobbit_: "Queer Lodgings"]
*/
/*
diff --git a/op.c b/op.c
index 525b159e9a..b08b7e27c7 100644
--- a/op.c
+++ b/op.c
@@ -9,11 +9,13 @@
*/
/*
- * "You see: Mr. Drogo, he married poor Miss Primula Brandybuck. She was
- * our Mr. Bilbo's first cousin on the mother's side (her mother being the
- * youngest of the Old Took's daughters); and Mr. Drogo was his second
- * cousin. So Mr. Frodo is his first *and* second cousin, once removed
- * either way, as the saying is, if you follow me." --the Gaffer
+ * 'You see: Mr. Drogo, he married poor Miss Primula Brandybuck. She was
+ * our Mr. Bilbo's first cousin on the mother's side (her mother being the
+ * youngest of the Old Took's daughters); and Mr. Drogo was his second
+ * cousin. So Mr. Frodo is his first *and* second cousin, once removed
+ * either way, as the saying is, if you follow me.' --the Gaffer
+ *
+ * [p.23 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* This file contains the functions that create, manipulate and optimize
diff --git a/os2/perlrexx.c b/os2/perlrexx.c
index fbeb493e95..735807e504 100644
--- a/os2/perlrexx.c
+++ b/os2/perlrexx.c
@@ -8,7 +8,11 @@
#include <os2.h>
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
#ifdef OEMVS
diff --git a/pad.c b/pad.c
index 86fa7c4f55..fa1945871e 100644
--- a/pad.c
+++ b/pad.c
@@ -5,13 +5,17 @@
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
+ */
+
+/*
+ * 'Anyway: there was this Mr. Frodo left an orphan and stranded, as you
+ * might say, among those queer Bucklanders, being brought up anyhow in
+ * Brandy Hall. A regular warren, by all accounts. Old Master Gorbadoc
+ * never had fewer than a couple of hundred relations in the place.
+ * Mr. Bilbo never did a kinder deed than when he brought the lad back
+ * to live among decent folk.' --the Gaffer
*
- * "Anyway: there was this Mr Frodo left an orphan and stranded, as you
- * might say, among those queer Bucklanders, being brought up anyhow in
- * Brandy Hall. A regular warren, by all accounts. Old Master Gorbadoc
- * never had fewer than a couple of hundred relations in the place. Mr
- * Bilbo never did a kinder deed than when he brought the lad back to
- * live among decent folk." --the Gaffer
+ * [p.23 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* XXX DAPM
diff --git a/perl.c b/perl.c
index 82eced81cd..24899175b8 100644
--- a/perl.c
+++ b/perl.c
@@ -9,7 +9,11 @@
*/
/*
- * "A ship then new they built for him/of mithril and of elven glass" --Bilbo
+ * A ship then new they built for him
+ * of mithril and of elven-glass
+ * --from Bilbo's song of Eärendil
+ *
+ * [p.236 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains the top-level functions that are used to create, use
diff --git a/perlio.c b/perlio.c
index f0534bd436..304d106ecb 100644
--- a/perlio.c
+++ b/perlio.c
@@ -10,6 +10,8 @@
/*
* Hour after hour for nearly three weary days he had jogged up and down,
* over passes, and through long dales, and across many streams.
+ *
+ * [pp.791-792 of _The Lord of the Rings_, V/iii: "The Muster of Rohan"]
*/
/* This file contains the functions needed to implement PerlIO, which
diff --git a/perly.y b/perly.y
index ad15d4b786..aad4dd7729 100644
--- a/perly.y
+++ b/perly.y
@@ -10,8 +10,12 @@
/*
* 'I see,' laughed Strider. 'I look foul and feel fair. Is that it?
- * All that is gold does not glitter, not all those who wander are lost.'
+ * All that is gold does not glitter, not all those who wander are lost.'
*
+ * [p.171 of _The Lord of the Rings_, I/x: "Strider"]
+ */
+
+/*
* This file holds the grammar for the Perl language. If edited, you need
* to run regen_perly.pl, which re-creates the files perly.h, perly.tab
* and perly.act which are derived from this.
diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index fcd4a876be..b2192d2752 100644
--- a/pod/perlhack.pod
+++ b/pod/perlhack.pod
@@ -3584,7 +3584,63 @@ activity as well, and probably sooner than you'd think.
If you can do these things, you've started on the long road to Perl porting.
Thanks for wanting to help make Perl better - and happy hacking!
+=head2 Metaphoric Quotations
+
+If you recognized the quote about the Road above, you're in luck.
+
+Most software projects begin each file with a literal description of each
+file's purpose. Perl instead begins each with a literary allusion to that
+file's purpose.
+
+Like chapters in many books, all top-level Perl source files (along with a
+few others here and there) begin with an epigramic inscription that alludes,
+indirectly and metaphorically, to the material you're about to read.
+
+Quotations are taken from writings of J.R.R Tolkien pertaining to his
+Legendarium, almost always from I<The Lord of the Rings>. Chapters and
+page numbers are given using the following editions:
+
+=over 4
+
+=item *
+
+I<The Hobbit>, by J.R.R. Tolkien. The hardcover, 70th-anniversary
+edition of 2007 was used, published in the UK by Harper Collins Publishers
+and in the US by the Houghton Mifflin Company.
+
+=item *
+
+I<The Lord of the Rings>, by J.R.R. Tolkien. The hardcover,
+50th-anniversary edition of 2004 was used, published in the UK by Harper
+Collins Publishers and in the US by the Houghton Mifflin Company.
+
+=item *
+
+I<The Lays of Beleriand>, by J.R.R. Tolkien and published posthumously by his
+son and literary executor, C.J.R. Tolkien, being the 3rd of the 12 volumes
+in Christopher's mammoth I<History of Middle Earth>. Page numbers derive
+from the hardcover edition, first published in 1983 by George Allen &
+Unwin; no page numbers changed for the special 3-volume omnibus edition of
+2002 or the various trade-paper editions, all again now by Harper Collins
+or Houghton Mifflin.
+
+=back
+
+Other JRRT books fair game for quotes would thus include I<The Adventures of
+Tom Bombadil>, I<The Silmarillion>, I<Unfinished Tales>, and I<The Tale of
+the Children of Hurin>, all but the first posthumously assembled by CJRT.
+But I<The Lord of the Rings> itself is perfectly fine and probably best to
+quote from, provided you can find a suitable quote there.
+
+So if you were to supply a new, complete, top-level source file to add to
+Perl, you should conform to this peculiar practice by yourself selecting an
+appropriate quotation from Tolkien, retaining the original spelling and
+punctuation and using the same format the rest of the quotes are in.
+Indirect and oblique is just fine; remember, it's a metaphor, so being meta
+is, after all, what it's for.
+
=head1 AUTHOR
This document was written by Nathan Torkington, and is maintained by
the perl5-porters mailing list.
+
diff --git a/pp.c b/pp.c
index afbda34ed1..7fe6c8a395 100644
--- a/pp.c
+++ b/pp.c
@@ -9,8 +9,11 @@
*/
/*
- * "It's a big house this, and very peculiar. Always a bit more to discover,
- * and no knowing what you'll find around a corner. And Elves, sir!" --Samwise
+ * 'It's a big house this, and very peculiar. Always a bit more
+ * to discover, and no knowing what you'll find round a corner.
+ * And Elves, sir!' --Samwise Gamgee
+ *
+ * [p.225 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains general pp ("push/pop") functions that execute the
diff --git a/pp_ctl.c b/pp_ctl.c
index e9771b9534..08b14c6bc3 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -9,12 +9,14 @@
*/
/*
- * Now far ahead the Road has gone,
- * And I must follow, if I can,
- * Pursuing it with eager feet,
- * Until it joins some larger way
- * Where many paths and errands meet.
- * And whither then? I cannot say.
+ * Now far ahead the Road has gone,
+ * And I must follow, if I can,
+ * Pursuing it with eager feet,
+ * Until it joins some larger way
+ * Where many paths and errands meet.
+ * And whither then? I cannot say.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* This file contains control-oriented pp ("push/pop") functions that
diff --git a/pp_hot.c b/pp_hot.c
index 20ad9dad3c..eeedc5b375 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -12,8 +12,10 @@
* Then he heard Merry change the note, and up went the Horn-cry of Buckland,
* shaking the air.
*
- * Awake! Awake! Fear, Fire, Foes! Awake!
- * Fire, Foes! Awake!
+ * Awake! Awake! Fear, Fire, Foes! Awake!
+ * Fire, Foes! Awake!
+ *
+ * [p.1007 of _The Lord of the Rings_, VI/viii: "The Scouring of the Shire"]
*/
/* This file contains 'hot' pp ("push/pop") functions that
diff --git a/pp_pack.c b/pp_pack.c
index dbbb34eddb..0895c9bba9 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -14,6 +14,8 @@
* wooden spoon, a short two-pronged fork and some skewers were stowed; and
* hidden at the bottom of the pack in a flat wooden box a dwindling treasure,
* some salt.
+ *
+ * [p.653 of _The Lord of the Rings_, IV/iv: "Of Herbs and Stewed Rabbit"]
*/
/* This file contains pp ("push/pop") functions that
diff --git a/pp_sort.c b/pp_sort.c
index e917c5efd9..a27232f74b 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -9,8 +9,10 @@
*/
/*
- * ...they shuffled back towards the rear of the line. 'No, not at the
- * rear!' the slave-driver shouted. 'Three files up. And stay there...
+ * ...they shuffled back towards the rear of the line. 'No, not at the
+ * rear!' the slave-driver shouted. 'Three files up. And stay there...
+ *
+ * [p.931 of _The Lord of the Rings_, VI/ii: "The Land of Shadow"]
*/
/* This file contains pp ("push/pop") functions that
diff --git a/pp_sys.c b/pp_sys.c
index 91b9d772dc..11cd863470 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -13,6 +13,8 @@
* cloven by a great fissure, out of which the red glare came, now leaping
* up, now dying down into darkness; and all the while far below there was
* a rumour and a trouble as of great engines throbbing and labouring.
+ *
+ * [p.945 of _The Lord of the Rings_, VI/iii: "Mount Doom"]
*/
/* This file contains system pp ("push/pop") functions that
diff --git a/regcomp.c b/regcomp.c
index 7d1c474633..6d3da0f34b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2,7 +2,9 @@
*/
/*
- * "A fair jaw-cracker dwarf-language must be." --Samwise Gamgee
+ * 'A fair jaw-cracker dwarf-language must be.' --Samwise Gamgee
+ *
+ * [p.285 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/* This file contains functions for compiling a regular expression. See
diff --git a/regexec.c b/regexec.c
index 0c4329dda3..326d92a839 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2,7 +2,11 @@
*/
/*
- * "One Ring to rule them all, One Ring to find them..."
+ * One Ring to rule them all, One Ring to find them
+ &
+ * [p.v of _The Lord of the Rings_, opening poem]
+ * [p.50 of _The Lord of the Rings_, I/iii: "The Shadow of the Past"]
+ * [p.254 of _The Lord of the Rings_, II/ii: "The Council of Elrond"]
*/
/* This file contains functions for executing a regular expression. See
diff --git a/run.c b/run.c
index ab0d8f2894..be280eeedb 100644
--- a/run.c
+++ b/run.c
@@ -26,9 +26,11 @@
#include "perl.h"
/*
- * "Away now, Shadowfax! Run, greatheart, run as you have never run before!
- * Now we are come to the lands where you were foaled, and every stone you
- * know. Run now! Hope is in speed!" --Gandalf
+ * 'Away now, Shadowfax! Run, greatheart, run as you have never run before!
+ * Now we are come to the lands where you were foaled, and every stone you
+ * know. Run now! Hope is in speed!' --Gandalf
+ *
+ * [p.600 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
int
diff --git a/scope.c b/scope.c
index 4b900efe49..d9dcd4ac48 100644
--- a/scope.c
+++ b/scope.c
@@ -9,8 +9,10 @@
*/
/*
- * "For the fashion of Minas Tirith was such that it was built on seven
- * levels..."
+ * For the fashion of Minas Tirith was such that it was built on seven
+ * levels...
+ *
+ * [p.751 of _The Lord of the Rings_, V/i: "Minas Tirith"]
*/
/* This file contains functions to manipulate several of Perl's stacks;
diff --git a/sv.c b/sv.c
index 284dfdfbd2..e9a384bdc5 100644
--- a/sv.c
+++ b/sv.c
@@ -6,7 +6,16 @@
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
- * "I wonder what the Entish is for 'yes' and 'no'," he thought.
+ */
+
+/*
+ * 'I wonder what the Entish is for "yes" and "no",' he thought.
+ * --Pippin
+ *
+ * [p.480 of _The Lord of the Rings_, III/iv: "Treebeard"]
+ */
+
+/*
*
*
* This file contains the code that creates, manipulates and destroys
diff --git a/taint.c b/taint.c
index bbfc248c3e..719cce3110 100644
--- a/taint.c
+++ b/taint.c
@@ -9,9 +9,11 @@
*/
/*
- * "...we will have peace, when you and all your works have perished--and
- * the works of your dark master to whom you would deliver us. You are a
- * liar, Saruman, and a corrupter of men's hearts." --Theoden
+ * '...we will have peace, when you and all your works have perished--and
+ * the works of your dark master to whom you would deliver us. You are a
+ * liar, Saruman, and a corrupter of men's hearts.' --Théoden
+ *
+ * [p.580 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
*/
/* This file contains a few functions for handling data tainting in Perl
diff --git a/toke.c b/toke.c
index b7d1b61918..b435fc7731 100644
--- a/toke.c
+++ b/toke.c
@@ -9,7 +9,9 @@
*/
/*
- * "It all comes from here, the stench and the peril." --Frodo
+ * 'It all comes from here, the stench and the peril.' --Frodo
+ *
+ * [p.719 of _The Lord of the Rings_, IV/ix: "Shelob's Lair"]
*/
/*
diff --git a/universal.c b/universal.c
index 40b0eae67e..f8ba9f7b82 100644
--- a/universal.c
+++ b/universal.c
@@ -9,9 +9,11 @@
*/
/*
- * "The roots of those mountains must be roots indeed; there must be
- * great secrets buried there which have not been discovered since the
- * beginning." --Gandalf, relating Gollum's story
+ * '"The roots of those mountains must be roots indeed; there must be
+ * great secrets buried there which have not been discovered since the
+ * beginning."' --Gandalf, relating Gollum's history
+ *
+ * [p.54 of _The Lord of the Rings_, I/ii: "The Shadow of the Past"]
*/
/* This file contains the code that implements the functions in Perl's
diff --git a/utf8.c b/utf8.c
index 517a67f186..ecbc4ea61c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -9,16 +9,23 @@
*/
/*
- * 'What a fix!' said Sam. 'That's the one place in all the lands we've ever
- * heard of that we don't want to see any closer; and that's the one place
- * we're trying to get to! And that's just where we can't get, nohow.'
+ * 'What a fix!' said Sam. 'That's the one place in all the lands we've ever
+ * heard of that we don't want to see any closer; and that's the one place
+ * we're trying to get to! And that's just where we can't get, nohow.'
+ *
+ * [p.603 of _The Lord of the Rings_, IV/I: "The Taming of Sméagol"]
*
* 'Well do I understand your speech,' he answered in the same language;
* 'yet few strangers do so. Why then do you not speak in the Common Tongue,
- * as is the custom in the West, if you wish to be answered?'
+ * as is the custom in the West, if you wish to be answered?'
+ * --Gandalf, addressing Théoden's door wardens
+ *
+ * [p.508 of _The Lord of the Rings_, III/vi: "The King of the Golden Hall"]
*
* ...the travellers perceived that the floor was paved with stones of many
* hues; branching runes and strange devices intertwined beneath their feet.
+ *
+ * [p.512 of _The Lord of the Rings_, III/vi: "The King of the Golden Hall"]
*/
#include "EXTERN.h"
diff --git a/util.c b/util.c
index d619881e55..aebc8efa75 100644
--- a/util.c
+++ b/util.c
@@ -9,8 +9,10 @@
*/
/*
- * "Very useful, no doubt, that was to Saruman; yet it seems that he was
- * not content." --Gandalf
+ * 'Very useful, no doubt, that was to Saruman; yet it seems that he was
+ * not content.' --Gandalf to Pippin
+ *
+ * [p.598 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
/* This file contains assorted utility routines.
diff --git a/vms/vms.c b/vms/vms.c
index 996d4d0b54..e11ed59a15 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12,14 +12,15 @@
*/
/*
- * Yet small as was their hunted band
- * still fell and fearless was each hand,
- * and strong deeds they wrought yet oft,
- * and loved the woods, whose ways more soft
- * them seemed than thralls of that black throne
- * to live and languish in halls of stone.
+ * Yet small as was their hunted band
+ * still fell and fearless was each hand,
+ * and strong deeds they wrought yet oft,
+ * and loved the woods, whose ways more soft
+ * them seemed than thralls of that black throne
+ * to live and languish in halls of stone.
+ * "The Lay of Leithian", Canto II, lines 135-40
*
- * The Lay of Leithian, 135-40
+ * [p.162 of _The Lays of Beleriand_]
*/
#include <acedef.h>
diff --git a/win32/perllib.c b/win32/perllib.c
index da8e13d965..ff212102f6 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -1,5 +1,9 @@
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
#define PERLIO_NOT_STDIO 0
#include "EXTERN.h"
diff --git a/xsutils.c b/xsutils.c
index 4d560ec4ce..3bc1f9349b 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -9,8 +9,10 @@
*/
/*
- * "Perilous to us all are the devices of an art deeper than we possess
- * ourselves." --Gandalf
+ * 'Perilous to us all are the devices of an art deeper than we possess
+ * ourselves.' --Gandalf
+ *
+ * [p.597 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/