summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-01-19 02:32:10 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-02-07 21:36:44 +0100
commit63396e61f2e1f1691f6e4003de053a0e5a64f576 (patch)
tree13d8c70ae9e0904292c8571c52f7180d353a5a03
parentbaedde5382f8fbf620b8aead35280d40660c78c2 (diff)
downloaddrakx-63396e61f2e1f1691f6e4003de053a0e5a64f576.tar
drakx-63396e61f2e1f1691f6e4003de053a0e5a64f576.tar.gz
drakx-63396e61f2e1f1691f6e4003de053a0e5a64f576.tar.bz2
drakx-63396e61f2e1f1691f6e4003de053a0e5a64f576.tar.xz
drakx-63396e61f2e1f1691f6e4003de053a0e5a64f576.zip
perl_checker cleanups
-rw-r--r--perl-install/install/steps_gtk.pm2
-rw-r--r--perl-install/install/steps_interactive.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 166bb7770..21f071adb 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -260,7 +260,7 @@ sub reallyChooseDesktop {
tip => $tips{$val->[0]},
toggled => sub { $choice = $val if $_[0]->get_active },
active => $choice == $val,
- $prev ? (join => $prev) : ());
+ if_($prev, join => $prev));
$prev->signal_connect(key_press_event => sub {
my (undef, $event) = @_;
if (!$event || ($event->keyval & 0x7f) == 0xd) {
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 5da4fa03d..be3d6c64c 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -977,7 +977,7 @@ sub summary {
group => N("Network & Internet"),
label => N("Network"),
val => sub { $o->{net}{type} },
- format => sub { s/.*:://; $_ },
+ format => sub { $_[0] =~ s/.*:://; $_[0] },
clicked => sub {
require network::netconnect;
network::netconnect::real_main($o->{net}, $o, $o->{modules_conf});