Add missing Tolkien quotes to *.c
authorAudrey Tang <cpan@audreyt.org>
Thu, 21 Feb 2002 07:13:12 +0000 (15:13 +0800)
committerAbhijit Menon-Sen <ams@wiw.org>
Wed, 20 Feb 2002 22:55:25 +0000 (22:55 +0000)
   Message-Id: <20020220231312.GA775@not.autrijus.org>

p4raw-id: //depot/perl@14802

globals.c
malloc.c
perlio.c
pp_pack.c
universal.c
xsutils.c

index b88cb7b..b9d70cc 100644 (file)
--- 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"
index c077e79..ae0adac 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -2,6 +2,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.)
index b59737c..dd5f21c 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -4,6 +4,11 @@
  * Artistic License, as specified in the README file.
  */
 
+/*
+ * 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.
index 61185a4..52d86d1 100644 (file)
--- 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"
index b2313f5..8fe67b9 100644 (file)
@@ -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"
index 1d7a01a..f044b6e 100644 (file)
--- 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"