diff options
Diffstat (limited to 'lib/IO/Pty/Easy.pm')
-rw-r--r-- | lib/IO/Pty/Easy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index 7df04e3..ae0201a 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -300,6 +300,7 @@ Kills any subprocesses and closes the pty. No other operations are valid after t sub close { my $self = shift; + return unless defined $self->{pty}; $self->kill; close $self->{pty}; $self->{pty} = undef; |