mirror of
https://github.com/samba-team/samba.git
synced 2025-01-13 13:18:06 +03:00
pidl: Fix imported function for ServerNDR and add test to make sure it doesn't regress again.
(This used to be commit 0e03694830
)
This commit is contained in:
parent
ad5bb10f70
commit
39cc507d1b
@ -12,7 +12,7 @@ use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
|
||||
use Parse::Pidl::Util qw(ParseExpr has_property is_constant);
|
||||
use Parse::Pidl::NDR qw(GetNextLevel);
|
||||
use Parse::Pidl::Samba4 qw(ElementStars DeclLong);
|
||||
use Parse::Pidl::Samba4::NDR::Parser qw(GenerateFunctionOutEnv);
|
||||
use Parse::Pidl::Samba4::Header qw(GenerateFunctionOutEnv);
|
||||
|
||||
use vars qw($VERSION);
|
||||
$VERSION = '0.01';
|
||||
|
14
source4/pidl/tests/samba3-srv.pl
Normal file
14
source4/pidl/tests/samba3-srv.pl
Normal file
@ -0,0 +1,14 @@
|
||||
#!/usr/bin/perl
|
||||
# (C) 2008 Jelmer Vernooij <jelmer@samba.org>
|
||||
# Published under the GNU General Public License
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::More tests => 0;
|
||||
use FindBin qw($RealBin);
|
||||
use lib "$RealBin";
|
||||
use Util;
|
||||
use Parse::Pidl::Util qw(MyDumper);
|
||||
use Parse::Pidl::Samba3::ServerNDR;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user