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:
commit
847b567f5c
|
@ -792,7 +792,8 @@ sub transfer_xml {
|
||||||
my $file_name;
|
my $file_name;
|
||||||
my $file_path;
|
my $file_path;
|
||||||
|
|
||||||
if (! -f $xml) {
|
if ($xml =~ /\n/ || ! -f $xml) {
|
||||||
|
# Not a file, it's content.
|
||||||
if (! (empty ($name))) {
|
if (! (empty ($name))) {
|
||||||
$file_name = $name . "." . sprintf("%d",getCurrentUTimeMilis(). (rand()*10000)) . ".data";
|
$file_name = $name . "." . sprintf("%d",getCurrentUTimeMilis(). (rand()*10000)) . ".data";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue