>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, "", ""); }