pidl Parse::Pidl::NDR: silence two warnings about undefined strings

Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index 13b2ebe178994d87a9a1143a692119f0ea4dba1b..44338a1298d8ef352d52d87e0003c02f7578dff7 100644 (file)
--- a/pidl/lib/Parse/Pidl/NDR.pm
+++ b/pidl/lib/Parse/Pidl/NDR.pm
@@ -117,7 +117,7 @@ sub GetElementLevelTable($$$)
                warning($e, "[out] argument `$e->{NAME}' not a pointer") if ($needptrs > $e->{POINTERS});
        }
 
-       my $allow_pipe = ($e->{PARENT}->{TYPE} eq "FUNCTION");
+       my $allow_pipe = (($e->{PARENT}->{TYPE} // '') eq "FUNCTION");
        my $is_pipe = typeIs($e->{TYPE}, "PIPE");
 
        if ($is_pipe) {
@@ -910,7 +910,7 @@ sub ParseInterface($)
 
        return { 
                NAME => $idl->{NAME},
-               UUID => lc(has_property($idl, "uuid")),
+               UUID => lc(has_property($idl, "uuid") // ''),
                VERSION => $version,
                TYPE => "INTERFACE",
                PROPERTIES => $idl->{PROPERTIES},