diff options
-rw-r--r-- | lib/Language/TECO.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index b55da50..993ae7f 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -65,11 +65,12 @@ sub cmd_with_string { my $str = ''; if ($self->{at}) { - my $dummy; - ($dummy, $str) = $self->{command} =~ s/(.)(.*?)\1//; + $self->{command} =~ s/(.)(.*?)\1//; + $str = $2; } else { - ($str) = $self->{command} =~ s/(.*?)\e//; + $self->{command} =~ s/(.*?)\e//; + $str = $1; } $code->($self, $str); |