diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-21 02:55:05 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-21 02:55:05 -0500 |
commit | 78923497e8ae725632badc94ffa6e9059949f77c (patch) | |
tree | 12a0b092b2311c346d5c6e52ac1ff186293fcd66 | |
parent | 44d5e9db7d6bcd5f05218950e110ba79967244d2 (diff) | |
download | language-teco-78923497e8ae725632badc94ffa6e9059949f77c.tar.gz language-teco-78923497e8ae725632badc94ffa6e9059949f77c.zip |
syntax fix
-rw-r--r-- | lib/Language/TECO.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 4496d2d..b55da50 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -78,7 +78,8 @@ sub cmd_with_string { sub push_cmd { my $self = shift; - $self->{command} = shift . $self->{command}; + my $to_push = shift; + $self->{command} = $to_push . $self->{command}; } sub execute { |