X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FDevice.pm;fp=perl%2FAmanda%2FDevice.pm;h=e6b49c87a9429117f37a71cbcd25a9428d06a6ac;hb=109540caa4e37a3663b3dcfb9a205b9609e3f561;hp=cdd0af6e1310df5d8201aa8d7b57595b8dd6c95e;hpb=4c9eba1feb11adf189bceb4001c425e641f0b56a;p=debian%2Famanda

diff --git a/perl/Amanda/Device.pm b/perl/Amanda/Device.pm
index cdd0af6..e6b49c8 100644
--- a/perl/Amanda/Device.pm
+++ b/perl/Amanda/Device.pm
@@ -125,6 +125,8 @@ sub DESTROY {
 *read_label = *Amanda::Devicec::Device_read_label;
 *start = *Amanda::Devicec::Device_start;
 *finish = *Amanda::Devicec::Device_finish;
+*get_bytes_read = *Amanda::Devicec::Device_get_bytes_read;
+*get_bytes_written = *Amanda::Devicec::Device_get_bytes_written;
 *start_file = *Amanda::Devicec::Device_start_file;
 *write_block = *Amanda::Devicec::Device_write_block;
 *finish_file = *Amanda::Devicec::Device_finish_file;
@@ -136,7 +138,9 @@ sub DESTROY {
 *directtcp_supported = *Amanda::Devicec::Device_directtcp_supported;
 *listen = *Amanda::Devicec::Device_listen;
 *accept = *Amanda::Devicec::Device_accept;
+*accept_with_cond = *Amanda::Devicec::Device_accept_with_cond;
 *connect = *Amanda::Devicec::Device_connect;
+*connect_with_cond = *Amanda::Devicec::Device_connect_with_cond;
 *use_connection = *Amanda::Devicec::Device_use_connection;
 *write_from_connection = *Amanda::Devicec::Device_write_from_connection;
 *read_to_connection = *Amanda::Devicec::Device_read_to_connection;