pidl:Samba4/NDR/Client: convert code to $self->pidl()

[ira/wip.git] / pidl / pidl

diff --git a/pidl/pidl b/pidl/pidl
index 394611ab53f2deaa9a952571a1a9785195c1a9cf..c64ea959b1baa502852eee558c27119ddb679527 100755 (executable)
--- a/pidl/pidl
+++ b/pidl/pidl
@@ -698,7 +698,8 @@ sub process_file($)
                my ($c_header) = $c_client;
                $c_header =~ s/\.c$/.h/;
 
-               my ($srcd,$hdrd) = Parse::Pidl::Samba4::NDR::Client::Parse(
+               my $generator = new Parse::Pidl::Samba4::NDR::Client();
+               my ($srcd,$hdrd) = $generator->Parse(
                        $ndr,$gen_header,$h_filename,$c_header);
 
                FileSave($c_client, $srcd);