develooper Front page | perl.perl5.porters | Postings from April 2000

Re: [ID 20000403.009] uninitialised concatenation???

From:
Tom Christiansen
Date:
April 4, 2000 06:02
Subject:
Re: [ID 20000403.009] uninitialised concatenation???
Message ID:
18851.954853296@chthon
>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, "", "");
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About