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 /lib | |
parent | aa15791022f816b6f3cf38a40b71dd1e159136c6 (diff) | |
download | io-pty-easy-82f66fa560cf3b368c80af8ed53bf08de326aa0d.tar.gz io-pty-easy-82f66fa560cf3b368c80af8ed53bf08de326aa0d.zip |
localize $@ and $? in the destructor
Diffstat (limited to 'lib')
-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; } # }}} |