diff options
| author | Russ Allbery <rra@stanford.edu> | 2010-02-18 14:20:04 -0800 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2010-02-18 14:20:04 -0800 |
| commit | 24aec22e62a69c463acfbff820c3fa7a920d9585 (patch) | |
| tree | 6cc7b9d3465de7fee958cc327eea90b469178ff1 /perl | |
| parent | 9336216818041c1a891a734f3dd431e7fbc50bcf (diff) | |
Call fork_callback conditionally
Only call fork_callback in Wallet::Kadmin::MIT if it's set, allowing
the module to work without setting it.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Wallet/Kadmin/MIT.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Kadmin/MIT.pm b/perl/Wallet/Kadmin/MIT.pm index f181739..a7ccf99 100644 --- a/perl/Wallet/Kadmin/MIT.pm +++ b/perl/Wallet/Kadmin/MIT.pm @@ -83,7 +83,7 @@ sub kadmin { $self->error ("cannot fork: $!"); return; } elsif ($pid == 0) { - $self->{fork_callback} (); + $self->{fork_callback} () if $self->{fork_callback}; unless (open (STDERR, '>&STDOUT')) { warn "wallet: cannot dup stdout: $!\n"; exit 1; |