diff options
| author | Douglas Bagnall <douglas.bagnall@catalyst.net.nz> | 2019-11-30 23:05:56 +1300 |
|---|---|---|
| committer | Andrew Bartlett <abartlet@samba.org> | 2019-12-10 02:53:35 +0000 |
| commit | 4de002a0f77dba8345ca6c395a855a5c053a8dd4 (patch) | |
| tree | ea3ba6e59954a3c963aeaf060a326699b36e3128 /pidl | |
| parent | aefce8e7c0d82241ab6ecfab7d714338b331bc52 (diff) | |
| download | samba-4de002a0f77dba8345ca6c395a855a5c053a8dd4.tar.gz | |
pidl s4::NDR::Parser: silence a warning
At level 0 there is no previous level so $pl is undefined thus so is ->{TYPE}
Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
Diffstat (limited to 'pidl')
| -rw-r--r-- | pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm index 0ea7a683d95..94428ec2037 100644 --- a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm +++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm @@ -980,7 +980,7 @@ sub ParseDataPull($$$$$$$) my $pl = GetPrevLevel($e, $l); my $range = has_property($e, "range"); - if ($range and $pl->{TYPE} ne "ARRAY") { + if ($range and (not $pl or $pl->{TYPE} ne "ARRAY")) { $var_name = get_value_of($var_name); my $signed = Parse::Pidl::Typelist::is_signed($l->{DATA_TYPE}); my ($low, $high) = parse_range($range); |