X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2FAmanda%2FTaper%2FWorker.pm;h=c114a81eb406cfe369d772e795e49761bb78eb3f;hb=011a59f5a54864108a16af570a6b287410597cc2;hp=9e23fd9ac03c76449e4e2b8ee066d7730b9fcfdc;hpb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;p=debian%2Famanda

diff --git a/perl/Amanda/Taper/Worker.pm b/perl/Amanda/Taper/Worker.pm
index 9e23fd9..c114a81 100644
--- a/perl/Amanda/Taper/Worker.pm
+++ b/perl/Amanda/Taper/Worker.pm
@@ -610,6 +610,13 @@ sub setup_and_start_dump {
         %get_xfer_dest_args = get_splitting_args_from_config(
 		%splitting_args);
 	$get_xfer_dest_args{'max_memory'} = getconf($CNF_DEVICE_OUTPUT_BUFFER_SIZE);
+	if (!getconf_seen($CNF_DEVICE_OUTPUT_BUFFER_SIZE)) {
+	    my $device = $self->{'scribe'}->get_device();
+	    my $block_size4 = $device->block_size * 4;
+	    if ($block_size4 > $get_xfer_dest_args{'max_memory'}) {
+		$get_xfer_dest_args{'max_memory'} = $block_size4;
+	    }
+	}
 	$get_xfer_dest_args{'can_cache_inform'} = ($msgtype eq Amanda::Taper::Protocol::FILE_WRITE);
 
 	# if we're unable to fulfill the user's splitting needs, we can still give