From 3567c50a33be996d7a3f4fd6c622622105d55a51 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 10 Dec 2002 00:54:27 +0000
Subject: minimal perl_checker fixes to have only warnings

---
 perl-install/standalone/drakxtv | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 75f122f99..b3f9c8802 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -133,7 +133,7 @@ my @devices = grep { ($_->{media_type} eq 'MULTIMEDIA_VIDEO') || $_->{driver} eq
 if (@devices) {
     # TODO: That need some work for multiples TV cards
     foreach (@devices) {
-	   if (( $< == 0) && (grep { $_->{driver} =~ '(bttv|saa7134)' } @devices)) {
+	   if (( $< == 0) && (grep { $_->{driver} =~ /(bttv|saa7134)/ } @devices)) {
 		  require harddrake::v4l;
 		  require modules;
 		  no strict 'subs';
-- 
cgit v1.2.1