diff options
Diffstat (limited to 'source4/pidl/expr.yp')
| -rw-r--r-- | source4/pidl/expr.yp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/source4/pidl/expr.yp b/source4/pidl/expr.yp index 58704ff89e..6faef27588 100644 --- a/source4/pidl/expr.yp +++ b/source4/pidl/expr.yp @@ -110,7 +110,11 @@ sub _Dereference($$) sub _Error($) { my ($self) = @_; - $self->YYData->{ERROR}->("Parse error in `".$self->YYData->{FULL_INPUT}."' near `". $self->YYData->{LAST_TOKEN} . "'"); + if (defined($self->YYData->{LAST_TOKEN})) { + $self->YYData->{ERROR}->("Parse error in `".$self->YYData->{FULL_INPUT}."' near `". $self->YYData->{LAST_TOKEN} . "'"); + } else { + $self->YYData->{ERROR}->("Parse error in `".$self->YYData->{FULL_INPUT}."'"); + } } sub Run { |