diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 13:27:21 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 13:27:21 -0500 |
| commit | 0243d3deae35114f7160263a9d3bb59c8644f727 (patch) | |
| tree | 1764903a33a20c511b6da93094d756ee0ac49583 | |
| parent | 0d37de9edad9d9066be4b133d9cd877319aed7ec (diff) | |
| download | language-teco-0243d3deae35114f7160263a9d3bb59c8644f727.tar.gz language-teco-0243d3deae35114f7160263a9d3bb59c8644f727.zip | |
make passing 0 in as the end position to buffer work properly
| -rw-r--r-- | lib/Language/TECO/Buffer.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index b884495..d997c85 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -16,8 +16,9 @@ sub endpos { length shift->{buffer} } sub buffer { my $self = shift; - my $start = shift || 0; - my $end = shift || $self->endpos; + my ($start, $end) = @_; + $start = 0 unless defined $start; + $end = $self->endpos unless defined $end; return substr $self->{buffer}, $start, $end - $start; } |