Imported Upstream version 3.3.1

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

diff --git a/perl/Amanda/Feature.swg b/perl/Amanda/Feature.swg
index e20e4b6fb5d8a3b9ae3bde3dcb60562d1f00fbdc..a66f39ab03ed6c5e6edd5348b984ef0402cc859e 100644 (file)
--- 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;
 
 %}