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

[PATCH] #ifdef STUPID_LUSERS_FEAR_CORRECT_WARNINGS

From:
Tom Christiansen
Date:
March 31, 2000 12:47
Subject:
[PATCH] #ifdef STUPID_LUSERS_FEAR_CORRECT_WARNINGS
Message ID:
24680.954535624@chthon
--- /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