sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-12-03 04:23:50 +03:00
Code Activity

pidl: Remove superfluous semicolon in perl code.

Browse Source 
Michael
This commit is contained in:
Michael Adam
2008-02-26 15:38:45 +01:00
parent 4d17d44d3f
commit 85f707c6ab
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/pidl/idl.yp
View File

@@ -391,7 +391,7 @@ sub _Error {
error($_[0]->YYData, $_[0]->YYData->{ERRMSG}); error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
delete $_[0]->YYData->{ERRMSG}; delete $_[0]->YYData->{ERRMSG};
return; return;
}; }
my $last_token = $_[0]->YYData->{LAST_TOKEN}; my $last_token = $_[0]->YYData->{LAST_TOKEN};
error($_[0]->YYData, "Syntax error near '$last_token'"); error($_[0]->YYData, "Syntax error near '$last_token'");

2
source/pidl/lib/Parse/Pidl/IDL.pm
View File

@@ -2408,7 +2408,7 @@ sub _Error {
error($_[0]->YYData, $_[0]->YYData->{ERRMSG}); error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
delete $_[0]->YYData->{ERRMSG}; delete $_[0]->YYData->{ERRMSG};
return; return;
}; }
my $last_token = $_[0]->YYData->{LAST_TOKEN}; my $last_token = $_[0]->YYData->{LAST_TOKEN};
error($_[0]->YYData, "Syntax error near '$last_token'"); error($_[0]->YYData, "Syntax error near '$last_token'");