summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-01-26 14:50:37 +0000
committerOlivier Blin <oblin@mandriva.com>2009-01-26 14:50:37 +0000
commitc2b9dabc361b8f08397e1c5ed5543fdd7f181d3b (patch)
treeb270e8dc7d1291b8b845b7e917a6215c47f2e7b2 /perl-install
parentd48b3d16d6e926640de58152943f30cec183b6cb (diff)
downloaddrakx-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-xperl-install/standalone/drakdvb1
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 =~ /^([^:]*?)(\([^(:]*\))?:/) {