diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:43:01 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-26 15:43:01 -0500 |
commit | d0699d742ba1c12cb318294525e90c9c51ea5c81 (patch) | |
tree | 63ceda6dca811020e02baa9ced91b24646c9f76a /lib | |
parent | 7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca (diff) | |
download | language-teco-d0699d742ba1c12cb318294525e90c9c51ea5c81.tar.gz language-teco-d0699d742ba1c12cb318294525e90c9c51ea5c81.zip |
error message shouldn't include file/line number
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index e2b7945..a1470ff 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -26,7 +26,7 @@ sub buffer { sub set { my $self = shift; my $pointer = shift; - die 'Pointer off page' if $pointer < 0 || $pointer > $self->endpos; + die "Pointer off page\n" if $pointer < 0 || $pointer > $self->endpos; $self->{pointer} = $pointer; return; } @@ -50,7 +50,7 @@ sub delete { my ($start, $end) = @_; ($start, $end) = ($end, $start) if $start > $end; - die "Pointer off page" if $start < 0 || $end > $self->endpos; + die "Pointer off page\n" if $start < 0 || $end > $self->endpos; substr($self->{buffer}, $start, $end - $start) = ''; $self->set($start); return; |