Add missing Tolkien quotes to *.c

   Message-Id: <20020220231312.GA775@not.autrijus.org>

p4raw-id: //depot/perl@14802

6 files changed, 34 insertions, 0 deletions

diff --git a/globals.c b/globals.c
index b88cb7b7c3..b9d70cc004 100644
--- a/globals.c
+++ b/globals.c
@@ -7,6 +7,11 @@
  *
  */
 
+/*
+ * "For the rest, they shall represent the other Free Peoples of the World:
+ * Elves, Dwarves, and Men." --Elrond
+ */
+
 #include "INTERN.h"
 #define PERL_IN_GLOBALS_C
 #include "perl.h"
diff --git a/malloc.c b/malloc.c
index c077e79d45..ae0adace26 100644
--- a/malloc.c
+++ b/malloc.c
@@ -3,6 +3,10 @@
  */
 
 /*
+ * "'The Chamber of Records,' said Gimli. 'I guess that is where we now stand.'"
+ */
+
+/*
   Here are some notes on configuring Perl's malloc.  (For non-perl
   usage see below.)
  
diff --git a/perlio.c b/perlio.c
index b59737c669..dd5f21c63d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5,6 +5,11 @@
  */
 
 /*
+ * Hour after hour for nearly three weary days he had jogged up and down,
+ * over passes, and through long dales, and across many streams.
+ */
+
+/*
  * If we have ActivePerl-like PERL_IMPLICIT_SYS then we need a dTHX to get
  * at the dispatch tables, even when we do not need it for other reasons.
  * Invent a dSYS macro to abstract this out
diff --git a/pp_pack.c b/pp_pack.c
index 61185a46e0..52d86d18bb 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -7,6 +7,14 @@
  *
  */
 
+/*
+ * He still hopefully carried some of his gear in his pack: a small tinder-box,
+ * two small shallow pans, the smaller fitting into the larger; inside them a
+ * 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.
+ */
+
 #include "EXTERN.h"
 #define PERL_IN_PP_PACK_C
 #include "perl.h"
diff --git a/universal.c b/universal.c
index b2313f5cd0..8fe67b91d2 100644
--- a/universal.c
+++ b/universal.c
@@ -7,6 +7,12 @@
  *
  */
 
+/*
+ * "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
+ */
+
 #include "EXTERN.h"
 #define PERL_IN_UNIVERSAL_C
 #include "perl.h"
diff --git a/xsutils.c b/xsutils.c
index 1d7a01a717..f044b6e068 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -7,6 +7,12 @@
  *
  */
 
+/*
+ * "Perilous to us all are the devices of an art deeper than we possess
+ * ourselves." --Gandalf
+ */
+
+
 #include "EXTERN.h"
 #define PERL_IN_XSUTILS_C
 #include "perl.h"