X-Git-Url: https://git.gag.com/?p=debian%2Famanda;a=blobdiff_plain;f=perl%2FAmanda%2FFeature.swg;h=a66f39ab03ed6c5e6edd5348b984ef0402cc859e;hp=e20e4b6fb5d8a3b9ae3bde3dcb60562d1f00fbdc;hb=c6f0a88c567f8536c498f554285aed1f8150da18;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b

diff --git a/perl/Amanda/Feature.swg b/perl/Amanda/Feature.swg
index e20e4b6..a66f39a 100644
--- a/perl/Amanda/Feature.swg
+++ b/perl/Amanda/Feature.swg
@@ -63,7 +63,9 @@ extern Set *am_string_to_feature(char *s);
 %newobject am_set_default_feature_set;
 extern Set *am_set_default_feature_set(void);
 %newobject am_init_feature_set;
-extern Set *am_init_feature_set(void);
+extern Set *am_init_feature_set();
+%newobject features;
+extern am_feature_t *am_features(Set *);
 
 %perlcode %{
 
@@ -89,6 +91,12 @@ sub Amanda::Feature::Set::mine {
     return Amanda::Feature::am_init_feature_set();
 }
 
+sub Amanda::Feature::Set::features {
+    my $class = shift;
+    return Amanmda::Feature::features();
+}
+
+
 package Amanda::Feature;
 
 %}