From 624946cfdb1d7dab03ed61a38bf3b47abca38193 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 00:19:18 -0500
Subject: oops, need to match newlines here

---
 lib/Language/TECO.pm | 4 ++--
 1 file 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;
         }
 
-- 
cgit v1.2.3-54-g00ecf