diff options
| author | Karl Williamson <khw@cpan.org> | 2020-11-16 08:52:59 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-16 09:21:17 -0700 |
| commit | 16791992a0d974b4c400611f3ecf676603fe09cf (patch) | |
| tree | 4813834ff3571cfc37ea7ac7bc5f1fcfa4b1a70c | |
| parent | ab307de390c3459badcc89b3d77542b5b871b2e8 (diff) | |
| download | perl-16791992a0d974b4c400611f3ecf676603fe09cf.tar.gz | |
loc_tools.pl: Simplify an expression
Suggested by Graham Knop
| -rw-r--r-- | t/loc_tools.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/loc_tools.pl b/t/loc_tools.pl index a87e7f63d3..15f5448b35 100644 --- 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; |