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>

diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
index 0ea7a683d95cca5ddae17c926a1bb4b6e26591a2..94428ec2037325bb8e38f146db632c8661a8ee69 100644 (file)
--- 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);