| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.5 2003/05/13 08:40:15 joko |
| 6 |
|
## minor update: renamed attribute |
| 7 |
|
## |
| 8 |
## Revision 1.4 2003/03/29 07:16:00 joko |
## Revision 1.4 2003/03/29 07:16:00 joko |
| 9 |
## minor update: changed default log-file-name to 'perl_app.log' |
## minor update: changed default log-file-name to 'perl_app.log' |
| 10 |
## |
## |
| 353 |
$configurator->{screen_min_level} = 'debug'; |
$configurator->{screen_min_level} = 'debug'; |
| 354 |
} |
} |
| 355 |
|
|
| 356 |
if ($self->{verbose}) { |
if ($self->{LOG_VERBOSE}) { |
| 357 |
$configurator->{verbose} = 1; |
$configurator->{verbose} = 1; |
| 358 |
} |
} |
| 359 |
|
|