EVOLUTION-MANAGER

Edit File: Tee.pm

package My::Tee; use IO::Handle; # see PerlIO::via our $copyfh; sub PUSHED { open($copyfh, '>', "$::opt_vardir/log/stdout.log") or die "open(>$::opt_vardir/log/stdout.log): $!" unless $copyfh; bless { }, shift; } sub WRITE { my ($obj, $buf, $fh) = @_; print $fh $buf; $fh->flush; print $copyfh $buf; return length($buf); } 1;