diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-20 00:27:31 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-20 00:27:31 -0500 |
commit | 2c5b2deb6662194d4176879d3498cc19ebdc92c9 (patch) | |
tree | 3a3d9cbdbad12106d4a864a1876886afef3f8bf0 | |
parent | ca83915bff82bc50a6d4725f84cc5223ce6d5b21 (diff) | |
download | language-teco-2c5b2deb6662194d4176879d3498cc19ebdc92c9.tar.gz language-teco-2c5b2deb6662194d4176879d3498cc19ebdc92c9.zip |
syntax error
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index 53a80ba..7015fe6 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -10,7 +10,7 @@ sub new { sub set { my $self = shift; my $pointer = shift; - return if $pointer < 0 || $pointer > length $self->{buffer} + return if $pointer < 0 || $pointer > length $self->{buffer}; $self->{pointer} = $pointer; } |