From 1fb281a03424d0942d4c275391cf194b5bd9a0ff Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 11:04:34 -0500
Subject: throw an error rather than returning silently if we try to move
 outside of the buffer

---
 lib/Language/TECO/Buffer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit v1.2.3-54-g00ecf