[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, 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";

-- 
Michael G Schwern   <schwern@pobox.com>   http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <perl-qa@perl.org>       Kwalitee Is Job One

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