pidl: Remove superfluous semicolon in perl code.

Michael

diff --git a/source/pidl/idl.yp b/source/pidl/idl.yp
index 028b628e18d06e3270fc815fc5637a12c3e18e5b..c7ca0c76042f6f24ccd8f3c9abdb4c6394ca268d 100644 (file)
--- a/source/pidl/idl.yp
+++ b/source/pidl/idl.yp
@@ -391,7 +391,7 @@ sub _Error {
                error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
                delete $_[0]->YYData->{ERRMSG};
                return;
-       };
+       }
        my $last_token = $_[0]->YYData->{LAST_TOKEN};
        
        error($_[0]->YYData, "Syntax error near '$last_token'");

diff --git a/source/pidl/lib/Parse/Pidl/IDL.pm b/source/pidl/lib/Parse/Pidl/IDL.pm
index aeee69e3063e21fbb6a4c38b76cd1177aff6afa4..4adb4dcea8c16eee29ec60b720cbe2c6f5dc02cb 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/IDL.pm
+++ b/source/pidl/lib/Parse/Pidl/IDL.pm
@@ -2408,7 +2408,7 @@ sub _Error {
                error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
                delete $_[0]->YYData->{ERRMSG};
                return;
-       };
+       }
        my $last_token = $_[0]->YYData->{LAST_TOKEN};
        
        error($_[0]->YYData, "Syntax error near '$last_token'");