mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-07-28 08:14:38 +02:00
avoid warnings in old perl versions
This commit is contained in:
parent
454e6120e4
commit
a5c5a30bde
@ -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";
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user