From 16d22e9c278a47d023e45695fda39ee5cd019074 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 2 May 2007 16:22:08 +0000
Subject: [PATCH] Simplify 'isolate_basic_target'

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6194 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Actions.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall-perl/Shorewall/Actions.pm b/Shorewall-perl/Shorewall/Actions.pm
index ea98214aa..69f8c12c5 100644
--- a/Shorewall-perl/Shorewall/Actions.pm
+++ b/Shorewall-perl/Shorewall/Actions.pm
@@ -116,7 +116,7 @@ sub merge_levels ($$) {
 # Get Macro Name -- strips away trailing /* and :* from the first column in a rule, macro or action.
 #
 sub isolate_basic_target( $ ) {
-    ( split '/', ( split /:/ , $_[0] )[0] )[0];
+    ( split '[/:]', $_[0])[0];
 }
 
 #