X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsubroutine-in-inc.t;h=6d0480f0f3b4b8ba219fd1b4e1af961f5bc94650;hb=42c7045899d0144c1942b7873fbbb172940c96ae;hp=685d76bf55829c6fe101e0df75b8aac237969e90;hpb=7487778ddbf9f90fff70a7efdee64b579200922c;p=p5sagit%2Flocal-lib.git

diff --git a/t/subroutine-in-inc.t b/t/subroutine-in-inc.t
index 685d76b..6d0480f 100644
--- a/t/subroutine-in-inc.t
+++ b/t/subroutine-in-inc.t
@@ -1,4 +1,5 @@
-#!/usr/bin/perl -w
+use strict;
+use warnings FATAL => 'all';
 
 use Test::More tests => 1;
 
@@ -15,9 +16,9 @@ my $dir;
 
 BEGIN {
     $base = CODE_in_INC;
-    unshift @INC, sub { };
-    splice @INC, 3, 1, sub { };
-    push @INC, sub { };
+    unshift @INC, sub { () };
+    splice @INC, 3, 1, sub { () };
+    push @INC, sub { () };
 
     $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
 }