From 093e1ae1ebd3199da062bb1b87d79a61f763000a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Sep 2002 18:40:25 +0000
Subject: killing debugging prints

---
 perl-install/harddrake/sound.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index fc6379d54..c25ab4800 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -159,8 +159,7 @@ sub switch {
     my ($in, $device) = @_;
     my $driver = $device->{driver};
     $driver = modules::get_alias($driver) if $driver =~ /sound-card/; # alsaconf ...
-    foreach (@blacklist) { print " $blacklisted\n$driver, $_,"; $blacklisted = 1 if $driver eq $_ }
-    print "the current $driver is ", $blacklisted ? '' : 'not ', "blacklisted ($blacklisted)\n\n";
+    foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
     my $alternative = get_alternative($driver);
     if ($alternative) {
 	   my $new_driver = $alternative->[0];
-- 
cgit v1.2.1