- my $str = Mojo::IOLoop::Stream->new($ob);
- $str->on(error=>sub {dbg "serial $_[1]"; do_reopen($name) unless $ending});
- $str->on(close=>sub {dbg "serial closing"; do_reopen($name) unless $ending});
- $str->on(timeout=>sub {dbg "serial timeout";});
- $str->on(read=>sub {on_read(@_)});
- $str->start;
+ my $ser = Mojo::IOLoop::Stream->new($ob);
+ $ser->on(error=>sub {dbg "serial $_[1]"; do_reopen($name) unless $ending});
+ $ser->on(close=>sub {dbg "serial closing"; do_reopen($name) unless $ending});
+ $ser->on(timeout=>sub {dbg "serial timeout";});
+ $ser->on(read=>sub {on_read(@_)});
+ $ser->start;