[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] You have no chance to survive make your time




On Thu, 22 Feb 2001 schwern@pobox.com wrote:
> On Thu, Feb 22, 2001 at 04:52:20PM -0500, Jeff Pinyan wrote:
> > $SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdEeSFeN.
> > eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_},"\n";
> 
> How odd, this shouldn't work.  And in 5.6.0 and up it doesn't work.
> Its relying on some odd strict bug which turned its "Global symbol..."
> into a warning in an eval STRING.  This is the 5.6 version:
> 
> eval'use strict;$uo';@_{split//,eCVJABDdEeSFeNeeGaeIHQecePMLRTeeUeeeZYeKee.
> OXebWeeee}=split//,uc$@;print@_{sort+keys%_},"\n";

On perl 5.004_04, which my ISP still uses, the original produces:

  ALL YOOERBC S GEQEBXIOAEP "NISA

Figuring out what's wrong is easy if you have 5.004 installed, but
should be possible just by comparing the above to the intended output.

-- 
Ilmari Karonen - http://www.sci.fi/~iltzu/
"Wow... I did that without typing a little-yellow-striped-stinging-insect....
 My daughter spilled Coke on my keyoard this evening and I lost a letter."
                                   -- Julie Pascal in rec.arts.sf.science


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe