From 809ff91e1b2e88943d9012b0ea2441079a5038aa Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Wed, 21 May 2008 02:59:35 -0500
Subject: handle getting these regex matches properly

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