TT#40503 Additional clone of cached files and collections lists

Change-Id: If10429228c6082f08c8123072226b3b1eefceaba

lib/NGCP/Panel/Utils/API.pm

@@ -43,7 +43,7 @@ sub apply_resource_reseller_id {
 
 sub get_collections {
     if ($collections_info_cache) {
-        my $collections_info_cache_cloned = clone $collections_info_cache;
+        my $collections_info_cache_cloned = clone($collections_info_cache);
         return @$collections_info_cache_cloned;
     }
     #get_collections_files in scalar context will return only first value from return array - \@files
@@ -60,12 +60,12 @@ sub get_collections {
         push @collections, $rel;
     }
     $collections_info_cache = [\@files, \@packages, \@collections, \@modules];
-    return @$collections_info_cache;
+    return @{clone($collections_info_cache)};
 }
 
 sub get_collections_files {
     if ($collections_files_cache) {
-        return clone $collections_files_cache;
+        return clone($collections_files_cache);
     }
     my($library,$libpath) = @_;
     if(!$libpath){
@@ -86,7 +86,7 @@ sub get_collections_files {
         ->not($itemrule);
     my @colls = $rule->in($libpath);
     $collections_files_cache = \@colls;
-    return $collections_files_cache;
+    return clone($collections_files_cache);
 }
 
 sub get_module_by_resource {