diff options
author | doy <doy@tozt.net> | 2009-02-03 03:17:02 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-02-03 03:17:02 -0500 |
commit | 1702788b834945ac554e10bc903ec40bdb429b47 (patch) | |
tree | 8945dceafd18425c827c1c071c3f070f91a1d4de /lib | |
parent | 3f0c905e59b19947c392668baf37bd2bf7b1f1e4 (diff) | |
download | io-pty-easy-1702788b834945ac554e10bc903ec40bdb429b47.tar.gz io-pty-easy-1702788b834945ac554e10bc903ec40bdb429b47.zip |
$self->close when the object is destroyed
Diffstat (limited to 'lib')
-rw-r--r-- | lib/IO/Pty/Easy.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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 |