summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGiuseppe Ghibò <ghibo@mageia.org>2023-03-31 19:15:16 +0200
committerGiuseppe Ghibò <ghibo@mageia.org>2023-04-08 12:39:19 +0200
commit0302f60535da8510f0c9efde8ec1d7976c270751 (patch)
tree30fe5d7b22e0a5b54c3437a4a99f19ae97445f8d /perl-install
parentbd39d8c999915cad90869d9a4f653c715ea41220 (diff)
downloaddrakx-0302f60535da8510f0c9efde8ec1d7976c270751.tar
drakx-0302f60535da8510f0c9efde8ec1d7976c270751.tar.gz
drakx-0302f60535da8510f0c9efde8ec1d7976c270751.tar.bz2
drakx-0302f60535da8510f0c9efde8ec1d7976c270751.tar.xz
drakx-0302f60535da8510f0c9efde8ec1d7976c270751.zip
More perl_checker pass
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm14
1 files 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_({