From d0699d742ba1c12cb318294525e90c9c51ea5c81 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Mon, 26 May 2008 15:43:01 -0500
Subject: error message shouldn't include file/line number

---
 bin/te                      | 2 +-
 lib/Language/TECO/Buffer.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/te b/bin/te
index d50aed4..e4293fa 100644
--- a/bin/te
+++ b/bin/te
@@ -32,7 +32,7 @@ COMMAND: while (1) {
             if ($pc eq "\e") {
                 print "\n";
                 ReadMode 3;
-                local $SIG{INT} = sub { die "Execution interrupted" };
+                local $SIG{INT} = sub { die "Execution interrupted\n" };
                 my $result = eval { $te->execute($command) };
                 print "?  $@\n" if $@;
                 print $result if defined $result;
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;
-- 
cgit v1.2.3-54-g00ecf