- my ($class, $rpipe, $end, $buf) = @_;
- bless { rpipe => $rpipe, end => $end, buf => $buf }, $class;
+ my ($class, $rpipe, $end, $end_arg, $buf) = @_;
+ bless {
+ rpipe => $rpipe,
+ end => $end,
+ end_arg => $end_arg,
+ buf => $buf,
+ filter => 0,
+ }, $class;