From 42a344055fbb786cfbf9f3f163356081783c19fb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 2 Jul 2018 16:04:09 +0200
Subject: perl_checker cleanups

---
 t/helper.pm                   | 2 +-
 t/superuser--file-conflicts.t | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/t/helper.pm b/t/helper.pm
index 40324133..81cbe59b 100644
--- a/t/helper.pm
+++ b/t/helper.pm
@@ -31,7 +31,7 @@ sub need_root_and_prepare() {
 }
 
 my $server_pid;
-sub httpd_port { 6969 }
+sub httpd_port() { 6969 }
 sub start_httpd() {
     system('perl -MNet::Server::Single -e 1') == 0 or die "module Net::Server::Single is missing (package perl-Net-Server)\n";
     $server_pid = fork();
diff --git a/t/superuser--file-conflicts.t b/t/superuser--file-conflicts.t
index 6528d2c2..eaaa0550 100644
--- a/t/superuser--file-conflicts.t
+++ b/t/superuser--file-conflicts.t
@@ -33,7 +33,7 @@ test_rpm_different_transactions();
 test_urpmi_same_transaction();
 test_urpmi_different_transactions();
 
-sub test_rpm_same_transaction {
+sub test_rpm_same_transaction() {
 
     test_rpm_i_fail('a', 'b');
     check_nothing_installed();
@@ -57,7 +57,7 @@ sub test_rpm_same_transaction {
     check_installed_and_remove('h', 'i');
 }
 
-sub test_rpm_different_transactions {
+sub test_rpm_different_transactions() {
     test_rpm_i_succeeds('a');
     test_rpm_i_fail('b');
     check_installed_names('a');
@@ -103,7 +103,7 @@ sub test_rpm_different_transactions {
     check_installed_and_remove('h', 'i');
 }
 
-sub test_urpmi_same_transaction {
+sub test_urpmi_same_transaction() {
     test_urpmi_fail('a b');
     check_nothing_installed();
 
@@ -126,7 +126,7 @@ sub test_urpmi_same_transaction {
     check_installed_and_remove('h', 'i');
 }
 
-sub test_urpmi_different_transactions {
+sub test_urpmi_different_transactions() {
     urpmi('a');
     test_urpmi_fail('b');
     check_installed_names('a');
-- 
cgit v1.2.1