|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Brindeew 2:5020/400 29 Feb 2004 19:24:25
To : All
Subject : Modification of a read-only value attempted
--------------------------------------------------------------------------------
Hi All,
Словил в демоне ошибку Modification of a read-only value attempted в
абсолютно безобидной строке. Вот фрагмент кода:
my $pid = fork();
if (defined $pid) {
if ($pid) {
# we are in parent
$KIDS{ $pid } = {
start_at => time(),
filename => $fname,
};
Hа последней строчке __иногда__ вылетаем (в среднем один раз где-то через
2-3 суток при 300-500 форках в сутки).
Где я неправ?
%KIDS определен глобально через use vars qw(%KIDS), $fname получаем в
начале ф-ции вот так: my $fname = shift() || '';
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
