diff options
author | Yorhel <git@yorhel.nl> | 2012-04-17 17:17:18 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2012-04-17 17:17:18 +0200 |
commit | 51e3c106a15b4f87fb06304a683f90be1f322872 (patch) | |
tree | 07dacd919ca424f21d34fd40e70e88f798000da2 /Tanja.pm | |
parent | fcf3560277c474e1f8063a77f01ef7ce95469fc6 (diff) |
link: Don't attempt to write more stuff after close
Diffstat (limited to 'Tanja.pm')
-rw-r--r-- | Tanja.pm | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -216,6 +216,7 @@ sub new { lasttup => [], fmti => undef, fmto => undef, + closed => 0, }, $own; $s->{write_handle} ||= $s->{handle}; @@ -248,6 +249,7 @@ sub new { sub _cleanup { my $s = shift; + $s->{closed} = 1; $s->{node}->_unregister($_) for (values %{$s->{pat}}); $s->{pat} = {}; delete $s->{node}{lnk}{$s}; @@ -271,6 +273,7 @@ sub close { sub _write { my $s = shift; + return if $s->{closed}; $s->{write_handle}->push_write($s->{fmto} => @_); $s->{on_write} && $s->{on_write}->(@_); } |