diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:19:18 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:19:18 -0500 |
| commit | 624946cfdb1d7dab03ed61a38bf3b47abca38193 (patch) | |
| tree | b89b8fdca3b5e3fb82abcf1c730f61d293c46a25 | |
| parent | 57a632fc1003aeab5b8f7c2fc9a5403341bab4a3 (diff) | |
| download | language-teco-624946cfdb1d7dab03ed61a38bf3b47abca38193.tar.gz language-teco-624946cfdb1d7dab03ed61a38bf3b47abca38193.zip | |
oops, need to match newlines here
| -rw-r--r-- | lib/Language/TECO.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 993ae7f..04b0ccf 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -65,11 +65,11 @@ sub cmd_with_string { my $str = ''; if ($self->{at}) { - $self->{command} =~ s/(.)(.*?)\1//; + $self->{command} =~ s/(.)(.*?)\1//s; $str = $2; } else { - $self->{command} =~ s/(.*?)\e//; + $self->{command} =~ s/(.*?)\e//s; $str = $1; } |