From: Audrey Tang <cpan@audreyt.org>
Date: Thu, 21 Feb 2002 07:13:12 +0000 (+0800)
Subject: Add missing Tolkien quotes to *.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d31a8517c09f42562afe9a28d8c8d154bf6dd71e;p=p5sagit%2Fp5-mst-13.2.git

Add missing Tolkien quotes to *.c
   Message-Id: <20020220231312.GA775@not.autrijus.org>

p4raw-id: //depot/perl@14802
---

diff --git a/globals.c b/globals.c
index b88cb7b..b9d70cc 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 c077e79..ae0adac 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 b59737c..dd5f21c 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 61185a4..52d86d1 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 b2313f5..8fe67b9 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 1d7a01a..f044b6e 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"