sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-25 23:21:54 +03:00
Code

r22357: Don't use 'our'

Browse Source 
(This used to be commit 7989ee2aa0)
This commit is contained in:
Jelmer Vernooij 2007-04-19 01:26:15 +00:00 committed by Gerald (Jerry) Carter
parent efe1883d9b
commit a0bfcfa55d
6 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
View File

@ -20,8 +20,8 @@ use Parse::Pidl::Samba4 qw(DeclLong);
use vars qw($VERSION);
$VERSION = '0.01';
our $res;
our $res_hdr;
my $res;
my $res_hdr;
my $tabs = "";
sub indent() { $tabs.="\t"; }
sub deindent() { $tabs = substr($tabs, 1); }

4
source4/pidl/lib/Parse/Pidl/Samba4/EJS.pm
View File

@ -21,8 +21,8 @@ use Parse::Pidl::Samba4::NDR::Parser qw(GenerateStructEnv GenerateFunctionInEnv
use vars qw($VERSION);
$VERSION = '0.01';
our $res;
our $res_hdr;
my $res;
my $res_hdr;
my %constants;

7
source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
View File

@ -9,10 +9,7 @@ package Parse::Pidl::Samba4::NDR::Parser;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(is_charset_array);
@EXPORT_OK = qw(check_null_pointer GenerateFunctionInEnv
GenerateFunctionOutEnv EnvSubstituteValue GenerateStructEnv NeededFunction
NeededElement NeededType $res NeededInterface TypeFunctionName ParseElementPrint);
@EXPORT_OK = qw(check_null_pointer GenerateFunctionInEnv GenerateFunctionOutEnv EnvSubstituteValue GenerateStructEnv NeededFunction NeededElement NeededType $res NeededInterface TypeFunctionName ParseElementPrint);
use strict;
use Parse::Pidl::Typelist qw(hasType getType mapTypeName);
@ -110,7 +107,7 @@ sub get_value_of($)
}
}
our $res;
my $res;
my $deferred = [];
my $tabs = "";

4
source4/pidl/lib/Parse/Pidl/Samba4/TDR.pm
View File

@ -17,8 +17,8 @@ $VERSION = '0.01';
use strict;
our $ret;
our $ret_hdr;
my $ret;
my $ret_hdr;
my $tabs = "";
sub indent() { $tabs.="\t"; }

8
source4/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
View File

@ -32,13 +32,13 @@ use File::Basename;
use vars qw($VERSION);
$VERSION = '0.01';
our @ett;
my @ett;
our %hf_used = ();
my %hf_used = ();
my %return_types = ();
my %dissector_used = ();
our $conformance = undef;
my $conformance = undef;
my %ptrtype_mappings = (
"unique" => "NDR_POINTER_UNIQUE",
@ -70,7 +70,7 @@ sub field2name($)
return $field;
}
our %res = ();
my %res = ();
my $tabs = "";
my $cur_fn = undef;
sub pidl_fn_start($)

2
source4/pidl/tests/wireshark-ndr.pl
View File

@ -234,7 +234,7 @@ is(DumpHfList(), "\tstatic hf_register_info hf[] = {
is(DumpHfDeclaration(), "
/* Header field declarations */
static gint hf_bla = -1;
static gint hf_bla_idx = -1;
");