diff options
Diffstat (limited to 'pidl/pidl')
-rwxr-xr-x | pidl/pidl | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -692,10 +692,11 @@ sub process_file($) } my $h_filename = "$outputdir/ndr_$basename.h"; - if (defined($opt_client)) { + my $c_header = "$outputdir/ndr_$basename\_c.h"; + if (defined($opt_client) or defined($opt_samba3_ndr_client)) { require Parse::Pidl::Samba4::NDR::Client; my ($c_client) = ($opt_client or "$outputdir/ndr_$basename\_c.c"); - my ($c_header) = $c_client; + $c_header = $c_client; $c_header =~ s/\.c$/.h/; my $generator = new Parse::Pidl::Samba4::NDR::Client(); @@ -772,7 +773,7 @@ sub process_file($) my $header = $client; $header =~ s/\.c$/\.h/; require Parse::Pidl::Samba3::ClientNDR; my $generator = new Parse::Pidl::Samba3::ClientNDR(); - my ($c_code,$h_code) = $generator->Parse($ndr, $header, $h_filename); + my ($c_code,$h_code) = $generator->Parse($ndr, $header, $c_header); FileSave($client, $c_code); FileSave($header, $h_code); } |