[wxperl-users] Disconnect handler from inside event?

[Wilson, D. <dgw...@so...>]

I was wondering if it was possible to disconnect an function from an
event while the
event was happening. Here's what I tried:

.....dialog constructor....

  $self->Connect(
    -1,
    -1,
    wxEVT_ACTIVATE,
    \&SetPasswdFocus,
  );

  $self;
}

my $done;
sub SetPasswdFocus {
  my ($self, $event) = @_;
  # Set focus on password if we have user
  $self->{Passwd}->SetFocus if !$done++ and ${$self->{user_out}};
  $self->Disconnect(
    -1, -1,
    wxEVT_ACTIVATE,
    \&SetPasswdFocus
  );
}

If I comment out the Disconnect, then it works as desired, but I was
just wondering if the Disconnect would
work so that SetPasswdFocus wouldn't even be called. Instead, I get a
segfault. If this just ain't gonna
work, then I'll just go back to using just the '$done' flag.

TIA,
Douglas Wilson