From 68c697f7a2ce5ee942a3a514c5db250582e4d732 Mon Sep 17 00:00:00 2001
From: Alex Buckley <alexbuckley@catalyst.net.nz>
Date: Mon, 4 Apr 2022 04:22:39 +0000
Subject: [PATCH] Bug 23352: (follow-up) Fix QA test failure

Sponsored-by: Catalyst IT

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 .../bug_23352-add_ccode_column_to_subscriptions_table.pl    | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/installer/data/mysql/atomicupdate/bug_23352-add_ccode_column_to_subscriptions_table.pl b/installer/data/mysql/atomicupdate/bug_23352-add_ccode_column_to_subscriptions_table.pl
index c182576392..fd653b2f0b 100755
--- a/installer/data/mysql/atomicupdate/bug_23352-add_ccode_column_to_subscriptions_table.pl
+++ b/installer/data/mysql/atomicupdate/bug_23352-add_ccode_column_to_subscriptions_table.pl
@@ -1,11 +1,11 @@
 use Modern::Perl;
 
-{
+return {
     bug_number => "23352",
     description => "Adding new column 'subscription.ccode'",
     up => sub {
         my ($args) = @_;
-        my $dbh = $args->{dbh};
+        my ($dbh, $out) = @$args{qw(dbh out)};
 
         if( !column_exists( 'subscription', 'ccode' ) ) {
           $dbh->do(q{
@@ -13,4 +13,4 @@ use Modern::Perl;
           });
         }
     },
-}
+};
-- 
2.39.5