diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-03-05 02:41:28 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-03-05 02:44:16 -0600 |
| commit | 18b70f57a6c12d75099bf28b0258c52cda825848 (patch) | |
| tree | 5ca383ccf5ad65de05691d13603a485e9a909e81 | |
| parent | 7aa8236bc5b4cc795b6b329c6fb4cb50c21898c2 (diff) | |
| download | term-filter-18b70f57a6c12d75099bf28b0258c52cda825848.tar.gz term-filter-18b70f57a6c12d75099bf28b0258c52cda825848.zip | |
this should be private
| -rw-r--r-- | lib/Term/Filter.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/Filter.pm b/lib/Term/Filter.pm index ec83393..6af58fd 100644 --- a/lib/Term/Filter.pm +++ b/lib/Term/Filter.pm @@ -77,7 +77,7 @@ sub _build_input_handles { [ $self->input, $self->pty ] } -has select => ( +has _select => ( is => 'ro', isa => 'IO::Select', lazy => 1, @@ -114,7 +114,7 @@ sub run { LOOP: while (1) { my ($r, undef, $e) = IO::Select->select( - $self->select, undef, $self->select, + $self->_select, undef, $self->_select, ); for my $fh (@$e) { |