From c1d27ce25a2724371b16640e4bb9d04aa70cc1eb Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Mon, 21 Feb 2011 00:54:03 +0000 Subject: minor whitespace muddling --- feature-tests/auto-testing.pl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'feature-tests') diff --git a/feature-tests/auto-testing.pl b/feature-tests/auto-testing.pl index b009323..31a9e5e 100755 --- a/feature-tests/auto-testing.pl +++ b/feature-tests/auto-testing.pl @@ -8,9 +8,11 @@ use strict; use lib $ENV{HOME} . "/projects/poe/lib"; sub PROGRAM () { "/opt/stow/repo/irssi-debug/bin/irssi" } + use POSIX; use POE qw( Wheel::ReadWrite Wheel::Run Filter::Stream ); + use Term::VT102; use Term::TermInfo; use feature qw/say switch/; @@ -28,12 +30,12 @@ my $ti = Term::Terminfo->new(); my $vt = Term::VT102->new(rows => 24, cols => 80); -$vt->callback_set(OUTPUT => \&vt_output, undef); -$vt->callback_set(ROWCHANGE => \&vt_rowchange, undef); -$vt->callback_set(CLEAR => \&vt_clear, undef); -$vt->callback_set(SCROLL_DOWN => \&vt_scr_dn, undef); -$vt->callback_set(SCROLL_UP => \&vt_scr_up, undef); -$vt->callback_set(GOTO => \&vt_goto, undef); +$vt->callback_set(OUTPUT => \&vt_output, undef); +$vt->callback_set(ROWCHANGE => \&vt_rowchange, undef); +$vt->callback_set(CLEAR => \&vt_clear, undef); +$vt->callback_set(SCROLL_DOWN => \&vt_scr_dn, undef); +$vt->callback_set(SCROLL_UP => \&vt_scr_up, undef); +$vt->callback_set(GOTO => \&vt_goto, undef); $vt->option_set(LINEWRAP => 1); $vt->option_set(LFTOCRLF => 1); -- cgit v1.2.3