X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FTapefile.swg;h=858e98e0060de6f78fca63cb3ec152b338dfebb3;hb=fb2bd066c2f8b34addafe48d62550e3033a59431;hp=32b5c30340db05b1c32dff9a3245a1c66112cd9e;hpb=94a044f90357edefa6f4ae9f0b1d5885b0e34aee;p=debian%2Famanda

diff --git a/perl/Amanda/Tapefile.swg b/perl/Amanda/Tapefile.swg
index 32b5c30..858e98e 100644
--- a/perl/Amanda/Tapefile.swg
+++ b/perl/Amanda/Tapefile.swg
@@ -27,6 +27,18 @@
 #include "tapefile.h"
 %}
 
+%perlcode %{
+=head1 NAME
+
+Amanda::Tapefile - temporary hack
+
+=head1 HACK?
+
+Yeah, this is just here to make Amanda::Logfile usable.  This module
+wil become Amanda::Tapelist in the next release.
+
+=cut
+%}
 /* This is just a hack to get Amanda::Logfile working! */
 
 int read_tapelist(char *tapefile);