make the subprocess scripts use strict and warnings

2 files changed, 4 insertions, 0 deletions

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 => {