summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2013-05-13 15:39:55 +0000
committerColin Guthrie <colin@mageia.org>2013-05-13 15:39:55 +0000
commit0171140ce456e3ac02073feff8ed6a6764702c6e (patch)
tree85b21bf877102ba29616a909ef09cd571b13aff9
parent39dccc8f54b55959230b79ed1e8603c41ef11f4e (diff)
downloadmgaonline-0171140ce456e3ac02073feff8ed6a6764702c6e.tar
mgaonline-0171140ce456e3ac02073feff8ed6a6764702c6e.tar.gz
mgaonline-0171140ce456e3ac02073feff8ed6a6764702c6e.tar.bz2
mgaonline-0171140ce456e3ac02073feff8ed6a6764702c6e.tar.xz
mgaonline-0171140ce456e3ac02073feff8ed6a6764702c6e.zip
Fix a genuine syntax error that happened because I suck at perl.
-rwxr-xr-xmgaapplet4
1 files changed, 2 insertions, 2 deletions
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();