From e226f244b3567344a2cbece3cc94c98cb28cd2c1 Mon Sep 17 00:00:00 2001
From: Dominik Meyer <dmeyer@federationhq.de>
Date: Fri, 7 Feb 2025 11:05:13 +0100
Subject: [PATCH] fix: fixed perl errrors

---
 federationhq_rcpt | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/federationhq_rcpt b/federationhq_rcpt
index d0716fd..44a419b 100644
--- a/federationhq_rcpt
+++ b/federationhq_rcpt
@@ -75,13 +75,11 @@ sub createDSN
 
 sub updateTransactionWithRecipientInfo 
 {
-    my $self = shift;
-    my $transaction = shift
-    my $sth = shift;
+    my ($self, $transaction, $sth) = @_;
 
     return unless $sth->rows == 1;
 
-    my $row = $th->fetchrow_hashref;
+    my $row = $sth->fetchrow_hashref;
     my $dovecot_server = $row->{dovecot_server};
     my $username = $row->{username};
 
@@ -98,7 +96,7 @@ sub updateTransactionWithRecipientInfo
          return 0;
     }
 
-    my $row = $self->{fetch_dovecot_details_sth}->fetchrow_hashref();
+    $row = $self->{fetch_dovecot_details_sth}->fetchrow_hashref();
 
     my $hostname = $row->{hostname};
     my $port = $row->{port};