From 1702788b834945ac554e10bc903ec40bdb429b47 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Tue, 3 Feb 2009 03:17:02 -0500
Subject: $self->close when the object is destroyed

---
 lib/IO/Pty/Easy.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib')

diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm
index a67babc..7df04e3 100644
--- a/lib/IO/Pty/Easy.pm
+++ b/lib/IO/Pty/Easy.pm
@@ -314,6 +314,13 @@ sub _wait_for_inactive {
 }
 # }}}
 
+# DESTROY {{{
+sub DESTROY {
+    my $self = shift;
+    $self->close;
+}
+# }}}
+
 # Ending documentation {{{
 
 =head1 SEE ALSO
-- 
cgit v1.2.3-54-g00ecf