Front page | perl.perl5.porters |
Postings from April 2000
>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, "", "");
}