Fix if_version for interfaces with a if_version_minor field different from 0

Signed-off-by: Stefan Metzmacher <metze@samba.org>

diff --git a/source/pidl/lib/Parse/Pidl/NDR.pm b/source/pidl/lib/Parse/Pidl/NDR.pm
index 33e5ad31961d938d1b6a4077f80cd06fd88e55bf..1e4504764aa9d52ae289ca5268ab424dddec57bf 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source/pidl/lib/Parse/Pidl/NDR.pm
@@ -688,7 +688,12 @@ sub ParseInterface($)
        $version = "0.0";
 
        if(defined $idl->{PROPERTIES}->{version}) { 
-               $version = $idl->{PROPERTIES}->{version}; 
+               my @if_version = split(/\./, $idl->{PROPERTIES}->{version});
+               if ($if_version[0] == $idl->{PROPERTIES}->{version}) {
+                               $version = $idl->{PROPERTIES}->{version};
+               } else {
+                               $version = $if_version[1] << 16 | $if_version[0];
+               }
        }
 
        # If no endpoint is set, default to the interface name as a named pipe