From 0405309dde44eb8c66d4f4612860a93e267e6c84 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Jun 2001 23:13:24 +0000
Subject: - enhance perl2fcalls (which now handle /xxx(...)/ as a regexp in
 more cases) - remove the use of /xxx (...)/x by /xxx(...)/ as perl2fcalls is
 getting smart => make gc happy which is very important, what would we be
 without him?

---
 perl-install/mouse.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/mouse.pm')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index cdcc453f5..00c1e6b73 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -163,7 +163,7 @@ sub fullname2mouse {
 
 sub serial_ports() { map { "ttyS$_" } 0..7 }
 sub serial_port2text {
-    $_[0] =~ /ttyS (\d+)/x ? "$_[0] / COM" . ($1 + 1) : $_[0];
+    $_[0] =~ /ttyS(\d+)/ ? "$_[0] / COM" . ($1 + 1) : $_[0];
 }
 
 sub read {
-- 
cgit v1.2.1