X-Git-Url: https://ruderich.org/simon/gitweb/?p=blhc%2Fblhc.git;a=blobdiff_plain;f=bin%2Fblhc;fp=bin%2Fblhc;h=140d2adcf2df7ad80c0bc2f8cfdc4d832c055ecd;hp=2ea54d4e8f35bf2e0bd60dafd96ab078e44b2b93;hb=189d593d45a3cab37a1908c2ae6c0c0d0916d60d;hpb=c2874d0d8e4579450add73e804f400fdd7f2f456

diff --git a/bin/blhc b/bin/blhc
index 2ea54d4..140d2ad 100755
--- a/bin/blhc
+++ b/bin/blhc
@@ -341,20 +341,6 @@ my $option_color;
 
 # FUNCTIONS
 
-# Only works for single-level arrays with no undef values. Thanks to perlfaq4.
-sub array_equal {
-    my ($first_ref, $second_ref) = @_;
-
-    return 0 if scalar @{$first_ref} != scalar @{$second_ref};
-
-    my $length = scalar @{$first_ref};
-    for (my $i = 0; $i < $length; $i++) {
-        return 0 if $first_ref->[$i] ne $second_ref->[$i];
-    }
-
-    return 1;
-}
-
 sub error_flags {
     my ($message, $missing_flags_ref, $flag_renames_ref, $line, $number) = @_;