From 0302f60535da8510f0c9efde8ec1d7976c270751 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Giuseppe=20Ghib=C3=B2?= <ghibo@mageia.org>
Date: Fri, 31 Mar 2023 19:15:16 +0200
Subject: More perl_checker pass

---
 perl-install/harddrake/sound.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 6cdefc266..b77719b58 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -15,7 +15,7 @@ use log;
 sub is_pulseaudio_enabled {
     my ($in) = @_;
     my $soundprofile = common::read_alternative('soundprofile');
-    return $in->do_pkgs->is_installed('task-pulseaudio') && ($soundprofile =~ /pulse$/);
+    return $in->do_pkgs->is_installed('task-pulseaudio') && $soundprofile =~ /pulse$/;
 }
 
 sub set_pulseaudio {
@@ -499,7 +499,7 @@ sub config {
                     "";
 
         my $is_pipewire_available = $in->do_pkgs->is_available('task-pipewire');
-        my $warn_pipewire_unavailable = (not $is_pipewire_available) ?
+        my $warn_pipewire_unavailable = !$is_pipewire_available ?
                     N("Warning: task-pipewire is not available in any media sources, so only pulseaudio could be set up. Please fix your repo configuration.") :
                     "";
 
@@ -543,14 +543,14 @@ sub config {
             },
         );
 
-        my @messages = ( "<b><i>" . $device->{description} . "</i></b>",
-                        N("Your card uses the <b>\"%s\"</b> driver\n", $driver) );
+        my @messages = ("<b><i>" . $device->{description} . "</i></b>",
+                        N("Your card uses the <b>\"%s\"</b> driver\n", $driver));
 
         if ($warn_both) {
-            push @messages, ("<b>" . $warn_both . "</b>") ;
+            push @messages, ("<b>" . $warn_both . "</b>");
         }
-        if (not $is_pipewire_available) {
-            push @messages, "<b>" . $warn_pipewire_unavailable . "</b>" ;
+        if (!$is_pipewire_available) {
+            push @messages, "<b>" . $warn_pipewire_unavailable . "</b>";
         }
         if ($driver eq 'unknown') {
             if ($in->ask_from_({
-- 
cgit v1.2.1