1 files changed, 0 insertions, 71 deletions
diff --git a/dev-util/cloc/files/cloc-fix_stupid_perl_array_error_again.patch b/dev-util/cloc/files/cloc-fix_stupid_perl_array_error_again.patch
deleted file mode 100644
index 9f41e07d019c..000000000000
--- a/dev-util/cloc/files/cloc-fix_stupid_perl_array_error_again.patch
+++ /dev/null
@@ -1,71 +0,0 @@
---- cloc-1.64.pl.orig	2015-08-26 18:59:16.045264847 -0700
-+++ cloc-1.64.pl	2015-08-26 19:30:23.241507263 -0700
-@@ -1280,11 +1280,6 @@
-                 !(@{$Filters_by_Language{$Lang_R} })) {
-                 $not_Filters_by_Language_Lang_LR = 1;
-             }
--        } else {
--            if (!defined(@{$Filters_by_Language{$Lang_L} }) or
--                !defined(@{$Filters_by_Language{$Lang_R} })) {
--                $not_Filters_by_Language_Lang_LR = 1;
--            }
-         }
-         if ($not_Filters_by_Language_Lang_LR) {
-             if (($Lang_L eq "(unknown)") or ($Lang_R eq "(unknown)")) {
-@@ -1618,7 +1613,7 @@
-         $Ignored{$file} = "--exclude-lang=$Language{$file}";
-         next;
-     }
--    my $Filters_by_Language_Language_file = !defined @{$Filters_by_Language{$Language{$file}} };
-+    my $Filters_by_Language_Language_file = !(@{$Filters_by_Language{$Language{$file}} });
-     if ($Filters_by_Language_Language_file) {
-         if ($Language{$file} eq "(unknown)") {
-             $Ignored{$file} = "language unknown (#1)";
-@@ -1759,7 +1754,7 @@
-                     if ($PERL_516) {
-                         next unless         @{$rhaa_Filters_by_Language->{$1}};
-                     } else {
--                        next unless defined @{$rhaa_Filters_by_Language->{$1}};
-+                        next unless (@{$rhaa_Filters_by_Language->{$1}});
-                     }
-                     # above test necessary to avoid trying to sum reports
-                     # of reports (which have no language breakdown).
-@@ -3259,7 +3254,7 @@
- } # 1}}}
- sub print_language_filters {                 # {{{1
-     my ($language,) = @_;
--    if (!defined @{$Filters_by_Language{$language}}) {
-+    if (! @{$Filters_by_Language{$language}}) {
-         warn "Unknown language: $language\n";
-         warn "Use --show-lang to list all defined languages.\n";
-         return;
-@@ -4623,7 +4618,7 @@
- 
-   open (FILE, $file);
-   while (<FILE>) {
--    if (m/^\\begin{code}/) { close FILE; return 2; }
-+    if (m/^\\begin\{code}/) { close FILE; return 2; }
-     if (m/^>\s/) { close FILE; return 1; }
-   }
- 
-@@ -4652,9 +4647,9 @@
-             if (!s/^>//) { s/.*//; }
-         } elsif ($literate == 2) {
-             if ($inlitblock) {
--                if (m/^\\end{code}/) { s/.*//; $inlitblock = 0; }
-+                if (m/^\\end\{code}/) { s/.*//; $inlitblock = 0; }
-             } elsif (!$inlitblock) {
--                if (m/^\\begin{code}/) { s/.*//; $inlitblock = 1; }
-+                if (m/^\\begin\{code}/) { s/.*//; $inlitblock = 1; }
-                 else { s/.*//; }
-             }
-         }
-@@ -6582,7 +6577,7 @@
-         my $language = $rh_Language_by_Extension->{$ext};
-         next if defined $extension_collisions{$language};
-         next if $seen_it{$language};
--        if (!defined @{$rhaa_Filters_by_Language->{$language}}) {
-+        if (! @{$rhaa_Filters_by_Language->{$language}}) {
-             $OK = 0;
-             warn "Missing language filter for $language\n";
-         }