diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-07-04 00:24:38 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-07-04 00:24:38 -0500 |
| commit | 82f66fa560cf3b368c80af8ed53bf08de326aa0d (patch) | |
| tree | 42c0fa01cef0c45ac34a70433a96df679522b576 | |
| parent | aa15791022f816b6f3cf38a40b71dd1e159136c6 (diff) | |
| download | io-pty-easy-82f66fa560cf3b368c80af8ed53bf08de326aa0d.tar.gz io-pty-easy-82f66fa560cf3b368c80af8ed53bf08de326aa0d.zip | |
localize $@ and $? in the destructor
| -rw-r--r-- | lib/IO/Pty/Easy.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index e1f3265..2785f86 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -339,6 +339,8 @@ sub _wait_for_inactive { # DESTROY {{{ sub DESTROY { my $self = shift; + local $@; + local $?; $self->close; } # }}} |