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($)