[Moscow.pm] Иногда вещи не то , чем кажутся

[Vladimir V. Perepelitsa]

On Thursday 05 June 2008 16:43:24 Denis Evdokimov wrote:
> А вот без local низя!
> $\ = "???";
> # ...
> # ...
> # ...
> # ...
> say @a;

уговорил (5.10 checked :).

use IO::Handle ();
BEGIN {
  *IO::Handle::say = sub{
    local $\="\n";
    shift->(print @_ ? @_ : $_);
  }
  sub say {
    local $\="\n";
    print @_ ? @_ : $_;
  }
}

-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956