From 1a747ddcb7645b7eb3bdb042175ff798339e7135 Mon Sep 17 00:00:00 2001
From: David Cook <dcook@prosentient.com.au>
Date: Fri, 2 Aug 2024 02:02:10 +0000
Subject: [PATCH] Bug 37553: Tidy to make QA tools happy

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 misc/migration_tools/koha-svc.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/misc/migration_tools/koha-svc.pl b/misc/migration_tools/koha-svc.pl
index 929380fa87..396f9e73ea 100755
--- a/misc/migration_tools/koha-svc.pl
+++ b/misc/migration_tools/koha-svc.pl
@@ -95,15 +95,15 @@ Specified user must have C<editcatalogue> permission.
 
 sub new {
     my $class = shift;
-    my $self = {@_};
+    my $self  = {@_};
     bless $self, $class;
 
-    my $url = $self->{url} || die "no url found";
-    my $user = $self->{user} || die "no user specified";
+    my $url      = $self->{url}      || die "no url found";
+    my $user     = $self->{user}     || die "no user specified";
     my $password = $self->{password} || die "no password";
 
     my $ua = LWP::UserAgent->new();
-    $ua->cookie_jar({});
+    $ua->cookie_jar( {} );
 
     my $get_resp   = $ua->get("$url/authentication");
     my $csrf_token = $get_resp->header('CSRF-TOKEN');
@@ -149,11 +149,11 @@ sub get {
 =cut
 
 sub post {
-    my ($self,$biblionumber,$marcxml) = @_;
+    my ( $self, $biblionumber, $marcxml ) = @_;
     my $url = $self->{url};
     warn "# post $url/bib/$biblionumber\n" if $self->{debug};
     my $csrf_token = $self->{csrf_token};
-    my $resp = $self->{ua}->post(
+    my $resp       = $self->{ua}->post(
         "$url/bib/$biblionumber",
         'Content_type' => 'text/xml',
         'Csrf_Token'   => $csrf_token,
-- 
2.39.5