From 3d937997d2563f00b05d842180c47a57f0d59b29 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 25 Feb 2012 01:55:10 -0600
Subject: better calling convention for the callbacks

---
 examples/nethack | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'examples')

diff --git a/examples/nethack b/examples/nethack
index eeef69b..deee504 100644
--- a/examples/nethack
+++ b/examples/nethack
@@ -7,12 +7,14 @@ use Term::Filter;
 my $term = Term::Filter->new(
     callbacks => {
         munge_input => sub {
-            my ($event, $got) = @_;
+            my $self = shift;
+            my ($got) = @_;
             $got =~ s/\ce/E-  Elbereth\n/g;
             $got;
         },
         munge_output => sub {
-            my ($event, $got) = @_;
+            my $self = shift;
+            my ($got) = @_;
             $got =~ s/(Elbereth)/\e[35m$1\e[m/g;
             $got;
         },
-- 
cgit v1.2.3-54-g00ecf