r9683: OK that last fix was too good to be true. (-:

diff --git a/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
index 60b237110880ad1bfdf701a05152a2f6eb6d0231..92199e13f108e40fa99027a9231d1db20588ace2 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
+++ b/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
@@ -326,7 +326,7 @@ sub Element($$$)
        my $add = "";
 
        foreach (@{$e->{LEVELS}}) {
-               last if ($_->{TYPE} eq "SWITCH");
+               next if ($_->{TYPE} eq "SWITCH");
                pidl_def "static int $dissectorname$add(tvbuff_t *tvb, int offset, packet_info *pinfo, proto_tree *tree, guint8 *drep);";
                pidl_code "static int";
                pidl_code "$dissectorname$add(tvbuff_t *tvb, int offset, packet_info *pinfo, proto_tree *tree, guint8 *drep)";