loc_tools.pl: Simplify an expression

Suggested by Graham Knop

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index a87e7f6..15f5448 100644 (file)
--- a/t/loc_tools.pl
+++ b/t/loc_tools.pl
@@ -322,7 +322,8 @@ sub locales_enabled(;$) {
         if ($has_LC_ALL) {
             push @categories_numbers, $category_number{'ALL'};
         }
-        $_[0]->@* = @categories_numbers;
+
+        @$categories_ref = @categories_numbers;
     }
 
     return 1;