From ba86f000e73bc2d458af787d02151fcf36a21992 Mon Sep 17 00:00:00 2001 From: Ilia Rostovtsev Date: Wed, 29 Sep 2021 14:25:45 +0300 Subject: [PATCH] Fix to use better file names for new var dump sub --- web-lib-funcs.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl index 9246c2edb..cfb1e164a 100755 --- a/web-lib-funcs.pl +++ b/web-lib-funcs.pl @@ -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"); } }