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

[Jeff Pinyan <jeffp@crusoe.net>]

On Feb 23, Ilmari Karonen said:

>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.

  japhy% perl5.00404 -e 'eval q{use strict; $uo;}'
  Global symbol "uo" requires explicit package name at (eval 1) line 1.

  japhy% perl5.00502 -e 'eval q{use strict; $uo;}'
  Global symbol "$uo" requires explicit package name at (eval 1) line 1.

One measly character.

-- 
Jeff "japhy" Pinyan     japhy@pobox.com    http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource  (my id:  PINYAN)       http://search.cpan.org/
PerlMonks - An Online Perl Community          http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc.   http://www.perlarchive.com/


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