X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fdead_load_bad_args.t;h=98b566c8a8c9d7b448cebd1260614a161c17dd74;hp=8542a13edf64aa963ddb3722f0824f2101df58d9;hb=05585938560f1bf415ef75ec4bed09ad7da82546;hpb=08f8d85ca6f74ecf186f0a367bb80dbc4deb63e9

diff --git a/t/dead_load_bad_args.t b/t/dead_load_bad_args.t
index 8542a13..98b566c 100644
--- a/t/dead_load_bad_args.t
+++ b/t/dead_load_bad_args.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 use lib 't/lib';
@@ -12,6 +10,7 @@ for my $fail (
     "(' ')",
     "('')",
     "('1.23')",
+    "(-1)",
 ) {
     for my $type (qw(Args CaptureArgs)) {
         eval <<"END";