avoid warnings in old perl versions

2021-05-07 14:01:42 +02:00 · 2021-05-07 14:01:42 +02:00 · a5c5a30bde
parent 454e6120e4
commit a5c5a30bde
1 changed files with 2 additions and 1 deletions
--- a/pandora_server/lib/PandoraFMS/PluginTools.pm
+++ b/pandora_server/lib/PandoraFMS/PluginTools.pm
@ -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";
 		}