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 /bin | |
parent | 7e2c0bc47f5b90f301cc6bba46cd79edfc1c05ca (diff) | |
download | language-teco-d0699d742ba1c12cb318294525e90c9c51ea5c81.tar.gz language-teco-d0699d742ba1c12cb318294525e90c9c51ea5c81.zip |
error message shouldn't include file/line number
Diffstat (limited to 'bin')
-rw-r--r-- | bin/te | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |