FW: [ID 20000403.009] uninitialised concatenation???

[Leon Brocard]

This has got to be the best patch ever ;-)

-----Original Message-----
From: Tom Christiansen [mailto:tchrist at chthon.perl.com]
Sent: Tuesday, April 04, 2000 2:02 PM
To: Richard Foley
Cc: Philip Newton; perl5-porters at perl.org; r.hm-pc026991-lm at m.dasa.de
Subject: Re: [ID 20000403.009] uninitialised concatenation??? 


>There may indeed be concatenation going on in building the string, but my
>question is more to do with whether I'm the only one who thinks the message
is
>a bit misleading with the 'concatenation (.)' bit.  I can't see a single
>period in the string: "$this and @that" and I'm not explicitly joining
>anything.

--- /usr/local/src/perls/perl-5.6.0/sv.c	Thu Mar 23 14:44:37 2000
+++ ./sv.c	Sat Apr  1 08:36:08 2000
@@ -218,10 +218,26 @@
 void
 Perl_report_uninit(pTHX)
 {
+#if !defined(STUPID_LUSERS_FEAR_CORRECT_WARNINGS) || defined(DEBUGGING)
+    /* 
+     * APRIL FOOLS PATCH to let the ignorant ignore their ignorance
+     * by rolling clock back to bad old days where opcode was hidden.
+     * The compiler sometimes generates opcodes that do not resemble
+     * the underlying source.  For lusers who don't grok optimizing
compilers,
+     * the patch will return them to blissless ignorance by refusing to
+     * divulge the real opcode, lest said lusers send egregiously ignorant
+     * non-bug reports that can only be fixed by luser-attitude adjustment.
+     *	    					--tchrist April 1, 2000
+     */
+#  ifdef STUPID_LUSERS_FEAR_CORRECT_WARNINGS
+    if (PL_op && PL_debug) 
+#  else
     if (PL_op)
+#  endif
 	Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit,
 		    " in ", PL_op_desc[PL_op->op_type]);
     else
+#endif
 	Perl_warner(aTHX_ WARN_UNINITIALIZED, PL_warn_uninit, "", "");
 }

Leon
--
Leon Brocard | perl hacker | leon.brocard at iii.co.uk