Thomas Krichel writes
Still not knowing where that function lives, I have now just commented this part of the code where the client dies, in Update.pm
if ( $ABORT ) { return 0; }
## commented out to circumvent files_list bug ## ##my $flist = $drecord->files_list(); ##foreach ( @$flist ) { ## if ( $children{$_} ) { ## } else { ## $self->disappeared_file( "$dir$_" ); # XXX ## if ( $ABORT ) { return 0; } ## while ( $PAUSE ) { sleep 3; } ## } ##}
The current arrangements are more sophisticated. ## commented out to circumvent files_list bug my $flist = eval { $drecord->files_list(); } || []; if($@) { error(Dumper $drecord); } foreach ( @$flist ) { if ( $children{$_} ) { } else { $self->disappeared_file( "$dir$_" ); # XXX if ( $ABORT ) { return 0; } while ( $PAUSE ) { sleep 3; } } } eval { $drecord -> files_list_set ( \@children ); }; $drecord -> last_observed_set ( $session_time ); I just added the if($@) { error(Dumper $drecord); } with a use Data::Dumper; at the top, maybe that will point to the error. Cheers, Thomas Krichel http://openlib.org/home/krichel RePEc:per:1965-06-05:thomas_krichel skype: thomaskrichel