michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-07-05 18:10:27 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Fix to print pid in file name when dumping

Browse Source
This commit is contained in:
Ilia Rostovtsev
2021-10-10 17:59:41 +03:00
parent 5048ac67d7
commit 180fac79c0
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

@@ -6554,18 +6554,18 @@ sub webmin_debug_var_dump
{
my ($varname, $objref) = @_;
my $file_name_prefix = '.debug_' . get_product_name() . '_' . $remote_user;
$varname =~ tr/A-Za-z0-9_\-//cd;
$varname =~ tr/A-Za-z0-9\_\-//cd;
if (ref($objref) eq 'HASH') {
write_file(tempname($file_name_prefix . '__dump__hash___' . $varname), $objref);
write_file(tempname($file_name_prefix . '__dump__' . $$ . '__hash___' . $varname), $objref);
}
elsif (ref($objref) eq 'ARRAY') {
my $arrindex = 0;
my @array_list = map { "\n@{[$arrindex++]}: $_" } @{$objref};
write_file_contents(tempname($file_name_prefix . '__dump__arra___' . $varname), "@array_list");
write_file_contents(tempname($file_name_prefix . '__dump__' . $$ . '__arr___' . $varname), "@array_list");
}
else {
write_file_contents(tempname($file_name_prefix . '__dump__varb___' . $varname), "$objref");
write_file_contents(tempname($file_name_prefix . '__dump__' . $$ . '__var___' . $varname), "$objref");
}
}