Fixed perlcritic level 5 badness - "return" statement followed by "so…

…rt" at lines 60 and 77. Behavior is undefined if called in scalar context. (Severity: 5)
reneeb · Nov 8, 2020 · b5ddfd9 · b5ddfd9
1 parent 7f36990
commit b5ddfd9
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Mojolicious/Plugin/FormFieldsFromJSON.pm b/lib/Mojolicious/Plugin/FormFieldsFromJSON.pm
@@ -57,7 +57,8 @@ sub register {
     $app->helper(
         forms => sub {
             if (%configfiles) {
-                return sort keys %configfiles;
+                my @sorted_configfiles = sort keys %configfiles;
+                return @sorted_configfiles;
             }
 
             for my $dir ( @{ $self->dir } ) {
@@ -74,7 +75,8 @@ sub register {
                 }
             }
 
-            return sort keys %configfiles;
+            my @sorted_configfiles = sort keys %configfiles;
+            return @sorted_configfiles;
         }
     );