Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 104 | 104 |
} |
| 105 | 105 |
|
| 106 | 106 |
sub show_backtrace {
|
| 107 |
my ($self) = @_; |
|
| 107 |
my ($self, $force) = @_;
|
|
| 108 | 108 |
|
| 109 |
return 1 unless ($global_level & BACKTRACE_ON_ERROR);
|
|
| 109 |
return 1 unless ($force || ($global_level & BACKTRACE_ON_ERROR));
|
|
| 110 | 110 |
|
| 111 | 111 |
$self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:"); |
| 112 | 112 |
my $level = 0; |
| ... | ... | |
| 128 | 128 |
my ($self, $level, $name, $variable) = @_; |
| 129 | 129 |
|
| 130 | 130 |
if ($data_dumper_available) {
|
| 131 |
my $password; |
|
| 132 |
if ($variable && ('Form' eq ref $variable) && defined $variable->{password}) {
|
|
| 133 |
$password = $variable->{password};
|
|
| 134 |
$variable->{password} = 'X' x 8;
|
|
| 135 |
} |
|
| 136 |
|
|
| 131 | 137 |
my $dumper = Data::Dumper->new([$variable]); |
| 132 | 138 |
$dumper->Sortkeys(1); |
| 133 | 139 |
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
| 134 | 140 |
|
| 141 |
$variable->{password} = $password if (defined $password);
|
|
| 142 |
|
|
| 135 | 143 |
# Data::Dumper does not reset the iterator belonging to this hash |
| 136 | 144 |
# if 'Sortkeys' is true. Therefore clear the iterator manually. |
| 137 | 145 |
# See "perldoc -f each". |
| 138 |
if ($variable && ('HASH' eq ref $variable)) {
|
|
| 146 |
if ($variable && (('HASH' eq ref $variable) || ('Form' eq ref $variable))) {
|
|
| 139 | 147 |
keys %{ $variable };
|
| 140 | 148 |
} |
| 141 | 149 |
|
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.