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