Change 14802 by ams@lustre on 2002/02/20 22:55:25
Subject: [PATCH] Add missing Tolkien quotes to *.c
From: Autrijus Tang <[EMAIL PROTECTED]>
Date: Thu, 21 Feb 2002 07:13:12 +0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/globals.c#31 edit
.... //depot/perl/malloc.c#92 edit
.... //depot/perl/perlio.c#161 edit
.... //depot/perl/pp_pack.c#14 edit
.... //depot/perl/universal.c#43 edit
.... //depot/perl/xsutils.c#19 edit
Differences ...
==== //depot/perl/globals.c#31 (text) ====
Index: perl/globals.c
--- perl/globals.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/globals.c Wed Feb 20 16:00:05 2002
@@ -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"
==== //depot/perl/malloc.c#92 (text) ====
Index: perl/malloc.c
--- perl/malloc.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/malloc.c Wed Feb 20 16:00:05 2002
@@ -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.)
==== //depot/perl/perlio.c#161 (text) ====
Index: perl/perlio.c
--- perl/perlio.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/perlio.c Wed Feb 20 16:00:05 2002
@@ -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
==== //depot/perl/pp_pack.c#14 (text) ====
Index: perl/pp_pack.c
--- perl/pp_pack.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/pp_pack.c Wed Feb 20 16:00:05 2002
@@ -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"
==== //depot/perl/universal.c#43 (text) ====
Index: perl/universal.c
--- perl/universal.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/universal.c Wed Feb 20 16:00:05 2002
@@ -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"
==== //depot/perl/xsutils.c#19 (text) ====
Index: perl/xsutils.c
--- perl/xsutils.c.~1~ Wed Feb 20 16:00:05 2002
+++ perl/xsutils.c Wed Feb 20 16:00:05 2002
@@ -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"
End of Patch.
