fix package importing

docs/changelog/7.x.x.txt

@@ -10,6 +10,7 @@
  - fix: wrong ssl link in iTransact settings
  - fix thumbnail script with Graphics::Magick
  - fix ordering of statuses in In/Out board
+ - fix package importing
 
 7.4.5
  - fix: Apostrophy incorrectly escaped as double quote in some places

lib/WebGUI/AssetPackage.pm

@@ -181,7 +181,10 @@ sub importPackage {
 	foreach my $file (sort(@{$decompressed->getFiles})) {
 		next unless ($decompressed->getFileExtension($file) eq "json");
 		$error->info("Found data file $file");
-		my $data = eval{JSON::jsonToObj($decompressed->getFileContentsAsScalar($file))};
+		my $data = eval{
+            local $JSON::UnMapping = 1;
+            JSON::jsonToObj($decompressed->getFileContentsAsScalar($file))
+        };
 		if ($@ || $data->{properties}{assetId} eq "" || $data->{properties}{className} eq "" || $data->{properties}{revisionDate} eq "") {
 			$error->error("package corruption: ".$@) if ($@);
 			return "corrupt";