r12206: Fix some issues in NOEMIT

[samba.git] / source / pidl / lib / Parse / Pidl / Ethereal / Conformance.pm

diff --git a/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm b/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
index 12eb718586fe130ee806ff22b9cc1d2ef8c0bb00..e3296c1629b288b39362ab91edc4bb4a55555a49 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
+++ b/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
@@ -232,10 +232,9 @@ sub handle_strip_prefix($$$)
 
 sub handle_noemit($$$)
 {
-       my ($pos,$data) = @_;
-       my $type;
-
-       $type = shift if ($#_ == 1);
+       my $pos = shift;
+       my $data = shift;
+       my $type = shift;
 
        if (defined($type)) {
            $data->{noemit}->{$type} = 1;