En op 11 september 2002 sprak (-ugene:
>> #!perl -lp
>> use overload'""',sub{${$_[0]}},nomethod,a;sub a{$_=pop;
>> bless/g/?\"-$_[0]":\"@_$_"}s/-/- /g+s/\d+/a("$&")/g;_=eval
>
> Urpl? _=eval? It seems to work... But why? It doesn't work in 5.8.0
> any longer. And it doesn't work in my solution: f(_=$1) .This appears to be a Linux 5.6.1 bug; the delightfully surreal construct '_=eval' does not work on Windows ActivePerl 5.6.1. I have a 3-character test program that might be submitted to golfer Schwern's Kwalitee Branch. Does anyone on this list know the proper procedure for reporting such bugs? Here it is. The following program, z.pl: _=1 runs happily on Linux, but not on Windows. On Linux Perl 5.6.1, 'perl -MO=Deparse z.pl' produces: *_ = 1; z.pl syntax OK On Windows ActivePerl 5.6.1 and Linux Perl 5.8.0 it produces: Can't modify constant item in scalar assignment at z.pl line 1, at EOF z.pl had compilation errors. '_' = 1; /-\ -- Perl Golf Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
