From 78923497e8ae725632badc94ffa6e9059949f77c Mon Sep 17 00:00:00 2001 From: jluehrs2 Date: Wed, 21 May 2008 02:55:05 -0500 Subject: syntax fix --- lib/Language/TECO.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 { -- cgit v1.2.3-54-g00ecf