diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-25 03:14:59 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-25 03:14:59 -0600 |
commit | 1bae19872cfd13c2bbde42c1a4b7edec6cc443bb (patch) | |
tree | b3bb5519b5a076407e27cfdfb8593d8fade72dc5 | |
parent | c464538c709d2a2681f8ae1c75c7808032c94e5b (diff) | |
download | app-ttyrec-1bae19872cfd13c2bbde42c1a4b7edec6cc443bb.tar.gz app-ttyrec-1bae19872cfd13c2bbde42c1a4b7edec6cc443bb.zip |
update for changes in Term::Filter
-rw-r--r-- | lib/App/Ttyrec.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/App/Ttyrec.pm b/lib/App/Ttyrec.pm index 819fb21..ff9f8d9 100644 --- a/lib/App/Ttyrec.pm +++ b/lib/App/Ttyrec.pm @@ -29,14 +29,15 @@ has term => ( isa => 'Term::Filter', lazy => 1, default => sub { - my $self = shift; - weaken(my $weakself = $self); + my $_self = shift; + weaken(my $self = $_self); Term::Filter->new( callbacks => { munge_output => sub { - my ($event, $got) = @_; + my $term = shift; + my ($got) = @_; - print { $weakself->ttyrec } $got; + syswrite $self->ttyrec, $got; $got; }, |