From f825b7f40d632675b3dd55fba94e4525a65922ae Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 5 Mar 2012 22:25:03 -0600
Subject: make the subprocess scripts use strict and warnings

---
 t/basic.t     | 2 ++
 t/callbacks.t | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/t/basic.t b/t/basic.t
index 3997271..0aeef5a 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -8,6 +8,8 @@ use IO::Pty::Easy;
 my $pty = IO::Pty::Easy->new(handle_pty_size => 0);
 
 my $script = <<'SCRIPT';
+use strict;
+use warnings;
 use Term::Filter;
 my $term = Term::Filter->new;
 $term->run($^X, '-ple', q[last if /^$/]);
diff --git a/t/callbacks.t b/t/callbacks.t
index 1d690d9..05ac5f7 100644
--- a/t/callbacks.t
+++ b/t/callbacks.t
@@ -7,6 +7,8 @@ use IO::Pty::Easy;
 use IO::Select;
 
 my $script = <<'SCRIPT';
+use strict;
+use warnings;
 use Term::Filter;
 my $term = Term::Filter->new(
     callbacks => {
-- 
cgit v1.2.3-54-g00ecf