From 97031bd9eabb508074548d5669bc817fd667071d Mon Sep 17 00:00:00 2001
From: Steven Schubiger <stsc@refcnt.org>
Date: Thu, 3 Mar 2022 13:32:48 +0100
Subject: [PATCH 1/1] =?utf8?q?Swiss=20QR-Bill:=20QrBill.pm:=20=C3=84nderun?=
 =?utf8?q?gen=20Syntax=20betreffend?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Helper/QrBill.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/Helper/QrBill.pm b/SL/Helper/QrBill.pm
index 935125213..c448eb28b 100644
--- a/SL/Helper/QrBill.pm
+++ b/SL/Helper/QrBill.pm
@@ -108,7 +108,7 @@ sub _init_check {
 
 sub generate {
   my $self = shift;
-  my $out_file = defined $_[0] ? $_[0] : $Config{out_file};
+  my $out_file = $_[0] // $Config{out_file};
 
   $self->{qrcode} = $self->_qrcode();
   $self->{cross}  = $self->_cross();
@@ -202,7 +202,7 @@ SL::Helper::QrBill - Helper methods for generating Swiss QR-Code
          \%invoice_recipient_data,
          \%ref_nr_data,
        );
-       $qr_image->generate($outfile);
+       $qr_image->generate($out_file);
      } or do {
        local $_ = $@; chomp; my $error = $_;
        $::form->error($::locale->text('QR-Image generation failed: ' . $error));
-- 
2.20.1