diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-21 02:59:35 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-21 02:59:35 -0500 |
| commit | 809ff91e1b2e88943d9012b0ea2441079a5038aa (patch) | |
| tree | 4383ae60d775402eae60e9261544009d82909455 | |
| parent | 78923497e8ae725632badc94ffa6e9059949f77c (diff) | |
| download | language-teco-809ff91e1b2e88943d9012b0ea2441079a5038aa.tar.gz language-teco-809ff91e1b2e88943d9012b0ea2441079a5038aa.zip | |
handle getting these regex matches properly
| -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); |