No signatures

t/ack-boolean.t

@@ -2,7 +2,6 @@
 
 use warnings;
 use strict;
-use experimental 'signatures';
 
 use Test::More tests => 79;
 
@@ -106,6 +105,15 @@ OR: {
         ]
     );
 
+    _movies_are(
+        [qw( Fisher --or Crystal )],
+        [
+            'The Blues Brothers',
+            'This is Spinal Tap',
+            'When Harry Met Sally',
+        ]
+    );
+
     # One of the OR options doesn't exist.
     _movies_are(
         [qw( Crystal --or Hemsworth )],
@@ -160,18 +168,26 @@ done_testing();
 exit 0;
 
 
-sub _movies_are( $args, $exp ) {
+sub _movies_are {
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+    my $args = shift;
+    my $exp  = shift;
+
     my @base_args = qw( -w -i --noenv );
-    my @files = ( reslash( 't/text/movies.txt' ) );
+    my @files = reslash( 't/text/movies.txt' );
     my @got = run_ack( @base_args, @{$args}, @files );
 
     s/:.+// for @got;
 
-    is_deeply( \@got, $exp, join( ' ', @{$args} ) );
+    return is_deeply( \@got, $exp, join( ' ', @{$args} ) ) || die;
 }
 
 
-sub _argjoin( $opt, $args ) {
+sub _argjoin {
+    my $opt  = shift;
+    my $args = shift;
+
     my @args = map { ($_, $opt) } @{$args};
 
     pop @args;