diff options
Diffstat (limited to 'source4')
| -rw-r--r-- | source4/build/pidl/client.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/dump.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/header.pm | 3 | ||||
| -rw-r--r-- | source4/build/pidl/parser.pm | 2 | ||||
| -rw-r--r-- | source4/build/pidl/util.pm | 1 |
5 files changed, 6 insertions, 2 deletions
diff --git a/source4/build/pidl/client.pm b/source4/build/pidl/client.pm index 7eb3b397b3..63a8c7c405 100644 --- a/source4/build/pidl/client.pm +++ b/source4/build/pidl/client.pm @@ -5,6 +5,7 @@ package IdlClient; +use strict; use Data::Dumper; my($res); diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm index 784a6f6f1b..1da9f715aa 100644 --- a/source4/build/pidl/dump.pm +++ b/source4/build/pidl/dump.pm @@ -5,6 +5,7 @@ package IdlDump; +use strict; use Data::Dumper; my($res); diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm index dda7e10425..8e102a0c3c 100644 --- a/source4/build/pidl/header.pm +++ b/source4/build/pidl/header.pm @@ -4,6 +4,7 @@ # released under the GNU GPL package IdlHeader; +use strict; use Data::Dumper; my($res); @@ -208,7 +209,7 @@ sub HeaderInterface($) foreach my $d (@{$data}) { if ($d->{TYPE} eq "FUNCTION") { - $u_name = uc $d->{NAME}; + my $u_name = uc $d->{NAME}; $res .= "#define DCERPC_$u_name $count\n"; $count++; } diff --git a/source4/build/pidl/parser.pm b/source4/build/pidl/parser.pm index c859dd56c9..ba0649ba75 100644 --- a/source4/build/pidl/parser.pm +++ b/source4/build/pidl/parser.pm @@ -6,8 +6,8 @@ package IdlParser; -use Data::Dumper; use strict; +use Data::Dumper; my($res); diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 192d56316a..75397b20e7 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -4,6 +4,7 @@ # released under the GNU GPL package util; +use strict; use Data::Dumper; sub dumpit($) |