diff options
author | doy <doy@tozt.net> | 2009-02-03 03:43:12 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-02-03 03:43:12 -0500 |
commit | 29536ca2109821ba3d3cda013c5cb8b67c196c0d (patch) | |
tree | 3fcb9c24a92afdbecd5a6eed71585fb0c58c2302 | |
parent | 531953d43faca2ed99b3ef9a570b5fe66893d90b (diff) | |
download | io-pty-easy-29536ca2109821ba3d3cda013c5cb8b67c196c0d.tar.gz io-pty-easy-29536ca2109821ba3d3cda013c5cb8b67c196c0d.zip |
minor nitpicks
-rw-r--r-- | lib/IO/Pty/Easy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index ae0201a..9d2256a 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -300,10 +300,10 @@ Kills any subprocesses and closes the pty. No other operations are valid after t sub close { my $self = shift; - return unless defined $self->{pty}; + return unless $self->{pty}; $self->kill; close $self->{pty}; - $self->{pty} = undef; + delete $self->{pty}; } # }}} |