michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 08:40:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

No deepcopy; no pid no filename

Browse Source
This commit is contained in:
Ilia
2022-06-05 00:50:41 +03:00
parent b7468b611c
commit f1f27bd334
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

@@ -6622,9 +6622,9 @@ sub var_dump
my ($objref, $filename, $pidtofilename) = @_;
my $pid;
$pid = "-" . $$ if ($pidtofilename);
my $filename_ = "var_dump$pid";
my $filename_ = "$pid";
if ($filename) {
if ($filename && $filename_) {
$filename =~ tr/A-Za-z0-9\_\-//cd;
$filename = "$filename--";
}
@@ -6633,7 +6633,7 @@ eval 'use Data::Dumper';
if (!$@) {
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Varname = 'this';
$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Sortkeys = 1;
# Write file