diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:27:43 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:27:43 +0000 |
| commit | 67f700453f4b322140aba7272b186801571b49da (patch) | |
| tree | c4a6580da77a6013fe2e387a75fdc0cf5c488e6d /perl | |
| parent | e0af03a54282129355d127f2787ed5516062e695 (diff) | |
Set InactiveDestroy to the right thing. Doh.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Wallet/Object/Keytab.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index 7725241..c2f66d4 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -65,7 +65,7 @@ sub kadmin { # Don't use die here; it will get trapped as an exception. Also be # careful about our database handles. (We still lose if there's some # other database handle open we don't know about.) - $self->{dbh}->{InactiveDestroy} = 0; + $self->{dbh}->{InactiveDestroy} = 1; unless (open (STDERR, '>&STDOUT')) { warn "wallet: cannot dup stdout: $!\n"; exit 1; @@ -229,7 +229,7 @@ sub kaserver_kasetkey { # Don't use die here; it will get trapped as an exception. Also be # careful about our database handles. (We still lose if there's some # other database handle open we don't know about.) - $self->{dbh}->{InactiveDestroy} = 0; + $self->{dbh}->{InactiveDestroy} = 1; unless (open (STDERR, '>&STDOUT')) { warn "cannot redirect stderr: $!\n"; exit 1; |