test exception: Replace while-each with foreach

quattor · Aug 24, 2023 · d3d77f8 · d3d77f8
1 parent cc77e12
commit d3d77f8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/test/perl/exception.t b/src/test/perl/exception.t
@@ -123,8 +123,8 @@ my $opts = {};
 my $success_func = sub {
     my ($arg1, $arg2, %opts) = @_;
     push(@$args, $arg1, $arg2);
-    while (my ($k, $v) = each %opts) {
-        $opts->{$k} = $v;
+    foreach my $k (keys %opts) {
+        $opts->{$k} = $opts{$k};
     };
     return 100;
 };