Merge branch 'ent-7516-warnings-en-ejecuccion-de-vmware-plugin-pl' into 'develop'

avoid warnings in old perl versions

See merge request artica/pandorafms!4114
This commit is contained in:
Daniel Rodriguez 2021-05-10 11:06:45 +00:00
commit 847b567f5c
1 changed files with 2 additions and 1 deletions

View File

@ -792,7 +792,8 @@ sub transfer_xml {
my $file_name;
my $file_path;
if (! -f $xml) {
if ($xml =~ /\n/ || ! -f $xml) {
# Not a file, it's content.
if (! (empty ($name))) {
$file_name = $name . "." . sprintf("%d",getCurrentUTimeMilis(). (rand()*10000)) . ".data";
}