| … | … | ||
|---|---|---|---|
| 7 | # and scan pids and decode si info. | 7 | # and scan pids and decode si info. |
| 8 | 8 | ||
| 9 | my $PID = 18; # epg data and more | 9 | my $PID = 18; # epg data and more |
| 10 | 10 | ||
| 11 | use Event; | 11 | use Event; |
| 12 | use Fcntl; | ||
| 12 | use Linux::DVB; | 13 | use Linux::DVB; |
| 13 | 14 | ||
| 14 | use Data::Dumper; | 15 | use Data::Dumper; |
| 15 | 16 | ||
| 16 | my $sniff_only = 1; # set to zero to actively tune to a channel | 17 | my $sniff_only = 1; # set to zero to actively tune to a channel |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |