From 82f66fa560cf3b368c80af8ed53bf08de326aa0d Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 4 Jul 2009 00:24:38 -0500 Subject: localize $@ and $? in the destructor --- lib/IO/Pty/Easy.pm | 2 ++ 1 file changed, 2 insertions(+) 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; } # }}} -- cgit v1.2.3