Imported Upstream version 2.6.0p2

[debian/amanda] / perl / Amanda / Tapefile.swg

diff --git a/perl/Amanda/Tapefile.swg b/perl/Amanda/Tapefile.swg
index 32b5c30340db05b1c32dff9a3245a1c66112cd9e..858e98e0060de6f78fca63cb3ec152b338dfebb3 100644 (file)
--- 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);