1 files changed, 4 insertions, 0 deletions
diff --git a/dist/Tie-File/t/16_handle.t b/dist/Tie-File/t/16_handle.t
index 2c9456fb22..4563c408fa 100644
--- a/dist/Tie-File/t/16_handle.t
+++ b/dist/Tie-File/t/16_handle.t
@@ -3,6 +3,9 @@
 # Basic operation, initializing the object from an already-open handle
 # instead of from a filename
 
+use strict;
+use warnings;
+
 my $file = "tf16-$$.txt";
 $: = Tie::File::_default_recsep();
 
@@ -22,6 +25,7 @@ sysopen F, $file, O_CREAT | O_RDWR
   or die "Couldn't create temp file $file: $!; aborting";
 binmode F;
 
+my @a;
 my $o = tie @a, 'Tie::File', \*F, autochomp => 0, autodefer => 0;
 print $o ? "ok $N\n" : "not ok $N\n";
 $N++;