Fix a genuine syntax error that happened because I suck at perl.

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();