perl: Use the .. operator instead of C-style for loops

Fixes ControlStructures::ProhibitCStyleForLoops.

Warned-by: perlcritic

1 files changed, 2 insertions, 0 deletions

diff --git a/src/t/100_dpkg_divert.t b/src/t/100_dpkg_divert.t
index 5b976a78b..40af7a9f8 100644
--- a/src/t/100_dpkg_divert.t
+++ b/src/t/100_dpkg_divert.t
@@ -125,9 +125,11 @@ sub diversions_pack {
     my (@data) = @_;
     my @data_packed;
 
+    ## no critic (ControlStructures::ProhibitCStyleForLoops)
     for (my ($i) = 0; $i < $#data; $i += 3) {
         push @data_packed, [ @data[$i .. $i + 2] ];
     }
+    ## use critic
     my @list = sort { $a->[0] cmp $b->[0] } @data_packed;
 
     return @list;