From 1bae19872cfd13c2bbde42c1a4b7edec6cc443bb Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 25 Feb 2012 03:14:59 -0600
Subject: update for changes in Term::Filter

---
 lib/App/Ttyrec.pm | 9 +++++----
 1 file 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;
                 },
-- 
cgit v1.2.3