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/header.pm | |
| 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/header.pm')
| -rw-r--r-- | source4/build/pidl/header.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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++; } |