X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FDevice.swg;h=d40031605f9bbb5955f3b74857ced43ba0212182;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=e661934ca2e03aab842eb48004d24075a0d072ad;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Device.swg b/perl/Amanda/Device.swg
index e661934..d400316 100644
--- a/perl/Amanda/Device.swg
+++ b/perl/Amanda/Device.swg
@@ -503,15 +503,16 @@ typedef struct Device {
 	    memset(&gval, 0, sizeof(gval));
 	    g_value_init(&gval, pbase->type);
 	    if (!set_gvalue_from_sv(sv, &gval))
-		goto fail;
+		goto failunset;
 
 	    if (!device_property_set(self, pbase->ID, &gval))
-		goto fail;
+		goto failunset;
 
 	    g_value_unset(&gval);
 	    return TRUE;
-	fail:
+	failunset:
 	    g_value_unset(&gval);
+	fail:
 	    return FALSE;
 	}
 
@@ -553,6 +554,7 @@ typedef struct Device {
 	gsize min_block_size(void) { return self->min_block_size; }
 	gsize max_block_size(void) { return self->max_block_size; }
 	gsize block_size(void) { return self->block_size; }
+	gsize header_block_size(void) { return self->header_block_size; }
 	dumpfile_t *volume_header(void) { return self->volume_header; }
     };