r20625: Fix couple of warnings.

[samba.git] / source4 / pidl / expr.yp

diff --git a/source4/pidl/expr.yp b/source4/pidl/expr.yp
index 58704ff89e0eda41020789c9be3e0d25a0be8fb6..6faef27588d3fefd67b7b0b261a413cedca4823a 100644 (file)
--- 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 {