Fix perl bug with perl 5.40 issue zmanda#262

exuvo · Dec 23, 2024 · 642710e · 642710e
1 parent 2832db0
commit 642710e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perl/Amanda/Tapelist.swg b/perl/Amanda/Tapelist.swg
@@ -52,7 +52,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/perl/Amanda/Taper/Scribe.pm b/perl/Amanda/Taper/Scribe.pm
@@ -1084,7 +1084,7 @@ sub _xmsg_no_space {
 	if ($chg->{'global_space'}) {
 	    $chg->inventory(inventory_cb => $steps->{'got_inventory'});
 	} else {
-	    return $finished_cb();
+	    return $finished_cb->();
 	}
     };