diff options
| -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; } |