mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-07-28 16:24:54 +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_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…
x
Reference in New Issue
Block a user