michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix var_dump filename

Browse Source
This commit is contained in:
Ilia
2022-05-15 13:17:35 +03:00
parent 88ec3a05cb
commit 0e33aaa18d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
web-lib-funcs.pl
View File

@@ -6621,12 +6621,12 @@ sub var_dump
{
my ($objref, $filename, $pidtofilename) = @_;
my $pid;
$pid = "--" . $$ if ($pidtofilename);
my $filename_ = '.debug_' . get_product_name() . "__var_dump$pid";
$pid = "-" . $$ if ($pidtofilename);
my $filename_ = "var_dump$pid";
if ($filename) {
$filename =~ tr/A-Za-z0-9\_\-//cd;
$filename = "--$filename";
$filename = "$filename--";
}
eval 'use Data::Dumper';
@@ -6638,7 +6638,7 @@ if (!$@) {
# Write file
if ($filename) {
write_file_contents(tempname("${filename_}$filename"), Dumper($objref));
write_file_contents(tempname("${filename}${filename_}"), Dumper($objref));
}
# Print on screen
else {