From 0171140ce456e3ac02073feff8ed6a6764702c6e Mon Sep 17 00:00:00 2001 From: Colin Guthrie Date: Mon, 13 May 2013 15:39:55 +0000 Subject: Fix a genuine syntax error that happened because I suck at perl. --- mgaapplet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mgaapplet') diff --git a/mgaapplet b/mgaapplet index 33deb691..af110253 100755 --- a/mgaapplet +++ b/mgaapplet @@ -399,7 +399,7 @@ sub confirm_upgrade() { Gtk2::FileChooserButton->new(N("Browse"), 'select-folder'), 'current-folder-changed' => sub { $temp_dir = $_[0]->get_current_folder; - my $ok = -d $temp_dir && ! -l $temp_dir && (stat($temp_dir)[4] == 0); + my $ok = -d $temp_dir && ! -l $temp_dir && ((stat($temp_dir))[4] == 0); $ok or ask_warn(N("Error"), N("You must choose a directory owned by the super administrator!")); }); $browse->set_current_folder($download_dir); @@ -432,7 +432,7 @@ sub confirm_upgrade() { setVar('DO_NOT_ASK_FOR_DISTRO_UPGRADE', bool2text($warn_me)); $local_config{DO_NOT_ASK_FOR_DISTRO_UPGRADE} = bool2text($warn_me); if ($res) { - my $ok = -d $temp_dir && ! -l $temp_dir && (stat($temp_dir)[4] == 0); + my $ok = -d $temp_dir && ! -l $temp_dir && ((stat($temp_dir))[4] == 0); $ok or goto &confirm_upgrade; $download_dir = $temp_dir; really_confirm_upgrade(); -- cgit v1.2.1