diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 14:49:45 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 14:49:45 -0500 |
| commit | 249c7b5dc579847be9836aae3d31aa3ac247ee97 (patch) | |
| tree | 88da4f5768bc4ab90ac3397d6d36b6c5ff622a00 | |
| parent | 3e3f3107aefe55f8f80b44a172f01e7f651cf0cf (diff) | |
| download | language-teco-249c7b5dc579847be9836aae3d31aa3ac247ee97.tar.gz language-teco-249c7b5dc579847be9836aae3d31aa3ac247ee97.zip | |
handle context correctly for ->num
| -rw-r--r-- | lib/Language/TECO.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 6a9ffb0..33da8b3 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -40,7 +40,7 @@ sub num { $self->{$self->{current_num}} = $num; } else { - if (wantarray) { + if (wantarray && defined $self->{n2}) { return ($self->{n1}, $self->{n2}); } else { @@ -158,7 +158,7 @@ sub execute { $self->cmd(sub { my $self = shift; if (defined $self->{n2}) { - $self->{buffer}->delete(($self->num)); + $self->{buffer}->delete($self->num); } else { if (!defined $self->num) { |