From c2b9dabc361b8f08397e1c5ed5543fdd7f181d3b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 26 Jan 2009 14:50:37 +0000
Subject: do not overwrite outside $_

---
 perl-install/standalone/drakdvb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/standalone/drakdvb')

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 =~ /^([^:]*?)(\([^(:]*\))?:/) {
-- 
cgit v1.2.1