diff options
| author | Olivier Blin <oblin@mandriva.com> | 2009-01-26 14:50:37 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2009-01-26 14:50:37 +0000 |
| commit | c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b (patch) | |
| tree | b270e8dc7d1291b8b845b7e917a6215c47f2e7b2 /perl-install | |
| parent | d48b3d16d6e926640de58152943f30cec183b6cb (diff) | |
| download | drakx-c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b.tar drakx-c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b.tar.gz drakx-c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b.tar.bz2 drakx-c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b.tar.xz drakx-c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b.zip | |
do not overwrite outside $_
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakdvb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb index cb003cf63..802a4feb2 100755 --- a/perl-install/standalone/drakdvb +++ b/perl-install/standalone/drakdvb @@ -96,6 +96,7 @@ sub detect_channels() { sub load_channels() { @{$channel_list->{data}} = (); open(my $CHANNELCONF, "<$config_file"); + local $_; while (<$CHANNELCONF>) { my $line = $_; if ($line =~ /^([^:]*?)(\([^(:]*\))?:/) { |