r24407: $element->{ARRAY_LEN} doesn't exist...

and a few lines above we use $element->{ORIGINAL}->{ARRAY_LEN}
I assume it was just forgotten in the update.

metze

diff --git a/source/pidl/lib/Parse/Pidl/Samba4.pm b/source/pidl/lib/Parse/Pidl/Samba4.pm
index f6c0ee38f762ef925a6d60307855d010a74854e3..326ac837513f46d6d985c8268b650e2297d976b8 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/Samba4.pm
+++ b/source/pidl/lib/Parse/Pidl/Samba4.pm
@@ -62,7 +62,7 @@ sub DeclLong($)
                $ret.="*" foreach (1..$numstar);
        }
        $ret.=$element->{NAME};
-       foreach (@{$element->{ARRAY_LEN}}) {
+       foreach (@{$element->{ORIGINAL}->{ARRAY_LEN}}) {
                next unless (is_constant($_) and not has_property($element, "charset"));
                $ret.="[$_]";
        }