r20625: Fix couple of warnings.

[samba.git] / source4 / pidl / lib / Parse / Pidl / Expr.pm

diff --git a/source4/pidl/lib/Parse/Pidl/Expr.pm b/source4/pidl/lib/Parse/Pidl/Expr.pm
index fc0a3a92aa4d806dccd65eafeb04dd4e1d66cd44..c6e5cd3dcaaf557829bad858aea4c4f626819a63 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Expr.pm
+++ b/source4/pidl/lib/Parse/Pidl/Expr.pm
@@ -1349,7 +1349,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 {