diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-20 01:43:35 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-20 01:43:35 +0000 |
| commit | 91b960e22b1e1d1d27ba40bf613d4b917344d28d (patch) | |
| tree | 3cabc85db360527b59cfc4f4c80ad13485a68e34 /source4/build/pidl | |
| parent | 8a8b2da9c9bb405d24f29684ebda4b9950f4e89f (diff) | |
| download | samba-91b960e22b1e1d1d27ba40bf613d4b917344d28d.tar.gz samba-91b960e22b1e1d1d27ba40bf613d4b917344d28d.tar.bz2 samba-91b960e22b1e1d1d27ba40bf613d4b917344d28d.zip | |
use strict perl package everywhere for error checking
(This used to be commit 3b7a4b70a321a1e8e378b8c5cc1e87a1c3399e91)
Diffstat (limited to 'source4/build/pidl')
| -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($) |