diff --git a/270.patch b/270.patch
new file mode 100644
index 0000000..15e043b
--- /dev/null
+++ b/270.patch
@@ -0,0 +1,45 @@
+From bd9ef8e5c004911b529d55b521d18d4d66c4e9b7 Mon Sep 17 00:00:00 2001
+From: Peter Bieringer <pb@bieringer.de>
+Date: Tue, 29 Oct 2024 21:42:32 +0100
+Subject: [PATCH 1/2] fixes https://github.com/zmanda/amanda/issues/262
+
+---
+ perl/Amanda/Taper/Scribe.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/perl/Amanda/Taper/Scribe.pm b/perl/Amanda/Taper/Scribe.pm
+index 8b21c77c0b..ecfd2a140a 100644
+--- a/perl/Amanda/Taper/Scribe.pm
++++ b/perl/Amanda/Taper/Scribe.pm
+@@ -1116,7 +1116,7 @@ sub _xmsg_no_space {
+ 	if ($chg->{'global_space'}) {
+ 	    $chg->inventory(inventory_cb => $steps->{'got_inventory'});
+ 	} else {
+-	    return $finished_cb();
++	    return $finished_cb->();
+ 	}
+     };
+ 
+
+From e083df9afaad61fc8772765d132a93ec8bc7ae5e Mon Sep 17 00:00:00 2001
+From: Peter Bieringer <pb@bieringer.de>
+Date: Tue, 29 Oct 2024 21:43:18 +0100
+Subject: [PATCH 2/2] fix for https://github.com/zmanda/amanda/issues/262
+
+---
+ perl/Amanda/Tapelist.swg | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/perl/Amanda/Tapelist.swg b/perl/Amanda/Tapelist.swg
+index 9266961a4e..ba84c68ca0 100644
+--- a/perl/Amanda/Tapelist.swg
++++ b/perl/Amanda/Tapelist.swg
+@@ -36,7 +36,7 @@ use Amanda::Debug qw(:logging);
+ use Amanda::Config qw( config_dir_relative );
+ use File::Copy;
+ use Fcntl qw(:flock); # import LOCK_* constants
+-use Amanda::Message qw( :severity );
++use Amanda::Message;
+ 
+ ## package functions
+ 
diff --git a/amanda.spec b/amanda.spec
index 1661734..1fa5b50 100644
--- a/amanda.spec
+++ b/amanda.spec
@@ -42,7 +42,9 @@ Patch6:        patch-xfsrestore-housekeeping
 Patch7: amanda-configure-c99.patch
 Patch8: amanda-c99.patch
 # Drop nonexistent -s option from aflush man page (#1943909)
-Patch9: 	https://github.com/zmanda/amanda/pull/273.patch
+Patch9:        https://github.com/zmanda/amanda/pull/273.patch
+# Perl 5.40 support (rhbz#2322518)
+Patch10:       https://github.com/zmanda/amanda/pull/270.patch
 
 License:       BSD-3-Clause AND GPL-3.0-or-later AND GPL-2.0-or-later AND GPL-2.0-only
 URL:           http://www.amanda.org