Args() wasn't being processed as unlimited number of args, due to

[catagits/Catalyst-Runtime.git] / t / optional_memleak.t

diff --git a/t/optional_memleak.t b/t/optional_memleak.t
index f420ef1..ca4cbcf 100644 (file)
--- a/t/optional_memleak.t
+++ b/t/optional_memleak.t
@@ -1,17 +1,16 @@
-#!perl
-
 use strict;
 use warnings;
 
+use Test::More;
+BEGIN {
+    plan skip_all => 'set TEST_MEMLEAK to enable this test'
+        unless $ENV{TEST_MEMLEAK};
+}
+
 use FindBin;
 use lib "$FindBin::Bin/lib";
-
-use Test::More;
 use Catalyst::Test 'TestApp';
 
-plan skip_all => 'set TEST_MEMLEAK to enable this test'
-    unless $ENV{TEST_MEMLEAK};
-
 eval "use Proc::ProcessTable";
 plan skip_all => 'Proc::ProcessTable required for this test' if $@;