diff options
Diffstat (limited to 'source4/build/pidl')
| -rw-r--r-- | source4/build/pidl/Parse/Pidl/IDL.pm | 6 | ||||
| -rw-r--r-- | source4/build/pidl/idl.yp | 6 |
2 files changed, 4 insertions, 8 deletions
diff --git a/source4/build/pidl/Parse/Pidl/IDL.pm b/source4/build/pidl/Parse/Pidl/IDL.pm index d0143632e0..7f7e5bcdca 100644 --- a/source4/build/pidl/Parse/Pidl/IDL.pm +++ b/source4/build/pidl/Parse/Pidl/IDL.pm @@ -2535,8 +2535,7 @@ sub _Lexer($) { my($parser)=shift; - $parser->YYData->{INPUT} - or return('',undef); + $parser->YYData->{INPUT} or return('',undef); again: $parser->YYData->{INPUT} =~ s/^[ \t]*//; @@ -2587,8 +2586,7 @@ again: sub parse_idl($$) { - my $self = shift; - my $filename = shift; + my ($self,$filename) = @_; my $saved_delim = $/; undef $/; diff --git a/source4/build/pidl/idl.yp b/source4/build/pidl/idl.yp index 23403fbef4..40d2809dad 100644 --- a/source4/build/pidl/idl.yp +++ b/source4/build/pidl/idl.yp @@ -362,8 +362,7 @@ sub _Lexer($) { my($parser)=shift; - $parser->YYData->{INPUT} - or return('',undef); + $parser->YYData->{INPUT} or return('',undef); again: $parser->YYData->{INPUT} =~ s/^[ \t]*//; @@ -414,8 +413,7 @@ again: sub parse_idl($$) { - my $self = shift; - my $filename = shift; + my ($self,$filename) = @_; my $saved_delim = $/; undef $/; |