From 189d593d45a3cab37a1908c2ae6c0c0d0916d60d Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Sat, 28 Nov 2020 11:29:01 +0100 Subject: [PATCH] Remove unused function array_equal() Unused since 42b57fd ("Fix another Ada false positive for format flags", 2016-09-10) --- bin/blhc | 14 -------------- 1 file changed, 14 deletions(-) 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) = @_; -- 2.43.2