fix otype attribute

[pmg-api.git] / PMG / RuleDB / Attach.pm

diff --git a/PMG/RuleDB/Attach.pm b/PMG/RuleDB/Attach.pm
index 1ecb49cb3c11d02ace2cf16739d6ea820a285c84..eaca77a8dae1e7cd1923ddb053747437aa808011 100644 (file)
--- a/PMG/RuleDB/Attach.pm
+++ b/PMG/RuleDB/Attach.pm
@@ -54,7 +54,7 @@ sub new {
 
     my $class = ref($type) || $type;
 
-    my $self = $class->SUPER::new(otype(), $ogroup);
+    my $self = $class->SUPER::new($class->otype(), $ogroup);
 
     return $self;
 }