summaryrefslogtreecommitdiff
path: root/source4
diff options
context:
space:
mode:
Diffstat (limited to 'source4')
-rw-r--r--source4/build/pidl/client.pm1
-rw-r--r--source4/build/pidl/dump.pm1
-rw-r--r--source4/build/pidl/header.pm3
-rw-r--r--source4/build/pidl/parser.pm2
-rw-r--r--source4/build/pidl/util.pm1
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($)