File ack-fix_smartcase_test_for_old_perl.patch of Package ack

--- t/longopts.t.orig	2010-11-12 00:24:07.000000000 +0100
+++ t/longopts.t	2010-11-12 00:29:48.000000000 +0100
@@ -9,7 +9,7 @@
 
 =cut
 
-use Test::More tests => 51;
+use Test::More tests => 49;
 use File::Next 0.34; # For the reslash() function
 
 use lib 't';
@@ -65,11 +65,6 @@
         qr{UPPER CASE},
         qq{$opt turn on ignore-case when PATTERN has no upper}
     );
-    unlike(
-        +run_ack( $opt, 'Upper case', @files ),
-        qr{UPPER CASE},
-        qq{$opt does nothing when PATTERN has upper}
-    );
     option_in_usage( '--[no]smart-case' );
 
     like(