… | … | ||
---|---|---|---|
341 | sub EOF { | 341 | sub EOF { |
342 | Carp::croak "Coro::Handle's don't support eof()"; | 342 | Carp::croak "Coro::Handle's don't support eof()"; |
343 | } | 343 | } |
344 | 344 | ||
345 | sub CLOSE { | 345 | sub CLOSE { |
346 | my $fh = $_[0][0]; | ||
346 | &cleanup; | 347 | &cleanup; |
347 | close $_[0][0] | 348 | close $fh |
348 | } | 349 | } |
349 | 350 | ||
350 | sub DESTROY { | 351 | sub DESTROY { |
351 | &cleanup; | 352 | &cleanup; |
352 | } | 353 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |