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