From 4ba944e6a5ba98eaa133c62dbd2ba12a9f159d4a Mon Sep 17 00:00:00 2001 From: Axel Burri Date: Sat, 1 Apr 2023 18:52:48 +0200 Subject: [PATCH] btrbk: fix exit status for action usage --- btrbk | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/btrbk b/btrbk index 052a297..8dbf321 100755 --- a/btrbk +++ b/btrbk @@ -6156,14 +6156,20 @@ MAIN: my @data; my %usage_cache; my %processed; + my $exit_status = 0; my $push_data = sub { my ($vol, $type) = @_; return if $processed{$vol->{URL}}; my $mountpoint = vinfo_mountpoint($vol, fs_type => 'btrfs'); - return unless($mountpoint); + unless($mountpoint) { + $exit_status = 1; + return unless($mountpoint) ; + } my $mount_source = $mountpoint->{mount_source}; my $mid = $vol->{MACHINE_ID} . $mount_source; - $usage_cache{$mid} //= btrfs_filesystem_usage(vinfo($vol->{URL_PREFIX} . $mountpoint->{mount_point}, $vol->{CONFIG})) // {}; + my $usage = btrfs_filesystem_usage(vinfo($vol->{URL_PREFIX} . $mountpoint->{mount_point}, $vol->{CONFIG})); + $exit_status = 1 unless defined($usage); + $usage_cache{$mid} //= $usage // {}; push @data, { %{$usage_cache{$mid}}, type => $type, mount_source => $mount_source, @@ -6181,7 +6187,7 @@ MAIN: } @data = sort { $a->{url} cmp $b->{url} } @data; print_formatted("usage", \@data); - exit exit_status($config); + exit $exit_status; }