summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2008-05-26 15:43:01 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2008-05-26 15:43:01 -0500
commitd0699d742ba1c12cb318294525e90c9c51ea5c81 (patch)
tree63ceda6dca811020e02baa9ced91b24646c9f76a /lib
parent7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca (diff)
downloadlanguage-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.pm4
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;