diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:04:34 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 11:04:34 -0500 |
commit | 1fb281a03424d0942d4c275391cf194b5bd9a0ff (patch) | |
tree | af2e399cbb87b781add34b758b26cd46a62ce45f | |
parent | d9befff3ab7491acd3a7781bbe148350748d2163 (diff) | |
download | language-teco-1fb281a03424d0942d4c275391cf194b5bd9a0ff.tar.gz language-teco-1fb281a03424d0942d4c275391cf194b5bd9a0ff.zip |
throw an error rather than returning silently if we try to move outside of the buffer
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index 47c65cb..9ed6d44 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -13,7 +13,7 @@ sub new { sub set { my $self = shift; my $pointer = shift; - return if $pointer < 0 || $pointer > length $self->{buffer}; + die 'Pointer off page' if $pointer < 0 || $pointer > length $self->{buffer}; $self->{pointer} = $pointer; } |