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

Fix to use better file names for new var dump sub

Browse Source
This commit is contained in:
Ilia Rostovtsev
2021-09-29 14:25:45 +03:00
parent ffa93926c3
commit ba86f000e7
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
web-lib-funcs.pl
View File

@@ -6556,14 +6556,14 @@ my $file_name_prefix = '.debug_' . get_product_name() . '_' . $remote_user;
$varname =~ tr/A-Za-z0-9//cd;
if (ref($objref) eq 'HASH') {
write_file(tempname($file_name_prefix . '_hash_' . $varname), $objref);
write_file(tempname($file_name_prefix . '__dump__hash___' . $varname), $objref);
}
elsif (ref($objref) eq 'ARRAY') {
my @array_list = map {"$_\n"} @{$objref};
write_file_contents(tempname($file_name_prefix . '_array_' . $varname), "@array_list");
write_file_contents(tempname($file_name_prefix . '__dump__arra___' . $varname), "@array_list");
}
else {
write_file_contents(tempname($file_name_prefix . '_variable_' . $varname), "$objref");
write_file_contents(tempname($file_name_prefix . '__dump__varb___' . $varname), "$objref");
}
}