[openqa-tests/sam/ci] openqa: Fix Perl issues in the tests

[Sam Thursfield <sthursfield src gnome org>]

commit ec40fe00148c5edc5f8d900ab5bd3530c70c11a4
Author: Sam Thursfield <sam thursfield codethink co uk>
Date:   Wed Sep 14 11:49:19 2022 +0100

    openqa: Fix Perl issues in the tests
    
    Updates in the openqa_worker container mean that we need
    to tighten up some syntax that is being rejected by Perl.
    
    There should be no functional changes to the tests.

 lib/gnomeutils.pm      |  2 +-
 tests/gnome_install.pm | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/lib/gnomeutils.pm b/lib/gnomeutils.pm
index 75fd7b2..0eb396c 100644
--- a/lib/gnomeutils.pm
+++ b/lib/gnomeutils.pm
@@ -11,7 +11,7 @@ sub run_command {
     send_key('esc');
     wait_still_screen(2);
 
-    send_key($desktop_runner_hotkey, wait_screen_change => true);
+    send_key($desktop_runner_hotkey, wait_screen_change => 1);
 
     assert_screen('desktop_runner', $desktop_runner_timeout);
 
diff --git a/tests/gnome_install.pm b/tests/gnome_install.pm
index d6c3547..0b8a600 100644
--- a/tests/gnome_install.pm
+++ b/tests/gnome_install.pm
@@ -4,11 +4,11 @@ use testapi;
 
 sub run {
     my $self = shift;
-    assert_and_click('gnome_install_1', timeout => 120, 'left');
-    assert_and_click('gnome_install_disk', 'left', 10);
-    assert_and_click('gnome_install_disk2', 'left', 10);
-    assert_screen('gnome_install_reformatting1', 120);
-    assert_screen('gnome_install_complete', 120);
+    assert_and_click('gnome_install_1', timeout => 120, button => 'left');
+    assert_and_click('gnome_install_disk', timeout => 10, button => 'left');
+    assert_and_click('gnome_install_disk2', timeout => 10, button => 'left');
+    assert_screen('gnome_install_reformatting1', timeout => 120);
+    assert_screen('gnome_install_complete', timeout => 120);
     eject_cd;
     power('reset');
 }