… | |
… | |
25 | print "new scanner\n"; |
25 | print "new scanner\n"; |
26 | my $self = bless { }; |
26 | my $self = bless { }; |
27 | |
27 | |
28 | $self->{dmx} = ::new_demux; |
28 | $self->{dmx} = ::new_demux; |
29 | $self->{dmx}->sct_filter ($PID, "", ""); |
29 | $self->{dmx}->sct_filter ($PID, "", ""); |
|
|
30 | $self->{dmx}->buffer (0x10000); |
30 | $self->{dmx}->start; |
31 | $self->{dmx}->start; |
31 | |
32 | |
32 | $self->{w} = Event->io (fd => $self->{dmx}->fh, poll => 'r', cb => sub { |
33 | $self->{w} = Event->io (fd => $self->{dmx}->fh, poll => 'r', cb => sub { |
33 | sysread $self->{dmx}->fh, my $data, 8192; |
34 | sysread $self->{dmx}->fh, my $data, 4096; |
34 | print Data::Dumper::Dumper Linux::DVB::Decode::si $data; |
35 | print Data::Dumper::Dumper Linux::DVB::Decode::si $data; |
35 | }); |
36 | }); |
36 | } |
37 | } |
37 | |
38 | |
38 | sub DESTROY { |
39 | sub DESTROY { |