diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-09 06:02:41 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:37:17 -0500 |
commit | cfa230c480b0c55a23e23dcb39e1b170da576c95 (patch) | |
tree | ff96974327bc4d771c6a07e11b1ff9f42ff6dbe3 /source4/pidl/lib/Parse/Pidl/Expr.pm | |
parent | e0e96ae80d21c6b94e05fbf3af457001a005ce09 (diff) | |
download | samba-cfa230c480b0c55a23e23dcb39e1b170da576c95.tar.gz samba-cfa230c480b0c55a23e23dcb39e1b170da576c95.tar.bz2 samba-cfa230c480b0c55a23e23dcb39e1b170da576c95.zip |
r20625: Fix couple of warnings.
(This used to be commit 203076129b967ccc6258e807280dc1b75583a064)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Expr.pm')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/Expr.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Expr.pm b/source4/pidl/lib/Parse/Pidl/Expr.pm index fc0a3a92aa..c6e5cd3dca 100644 --- 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 { |