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

[amitay/samba.git] / pidl / pidl

diff --git a/pidl/pidl b/pidl/pidl
index c9e571a107f63c52a1a44f7ddb78b59cfc37363e..c64ea959b1baa502852eee558c27119ddb679527 100755 (executable)
--- a/pidl/pidl
+++ b/pidl/pidl
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
 
 ###################################################
 # package to parse IDL files and generate code for
@@ -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);