From c9f9e1fe502fdc6d80e786c4eb8367b3e55da990 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Zden=C4=9Bk=20=C5=A0ustr?= <sustr4@cesnet.cz>
Date: Mon, 26 Jan 2009 15:28:53 +0000
Subject: [PATCH] Clean trailing slahes from module names.

---
 org.glite.lb/etics-tag-with-subsystems.pl | 3 +++
 org.glite.lb/etics-tag.pl                 | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/org.glite.lb/etics-tag-with-subsystems.pl b/org.glite.lb/etics-tag-with-subsystems.pl
index 57d737b..18779c0 100755
--- a/org.glite.lb/etics-tag-with-subsystems.pl
+++ b/org.glite.lb/etics-tag-with-subsystems.pl
@@ -22,6 +22,9 @@ usage: $0 [-c <current configuration>] module.name
 };
         if (defined $opt_h) {die $usage};
 	die $usage unless $module;
+
+        #Clean possible trailing '/' (even multiple occurrences :-) from module name
+        $module=~s/\/+$//;
  
         if (defined $opt_c) {
 
diff --git a/org.glite.lb/etics-tag.pl b/org.glite.lb/etics-tag.pl
index cd60f06..b006ad6 100755
--- a/org.glite.lb/etics-tag.pl
+++ b/org.glite.lb/etics-tag.pl
@@ -33,6 +33,9 @@ usage: $0 [-i maj|min|rev|age|none|<sigle_word_age>] [-g] [-c <current configura
 	if (defined $opt_h) {die $usage};
 	die $usage unless $module;
 
+	#Clean possible trailing '/' (even multiple occurrences :-) from module name
+	$module=~s/\/+$//;
+
 	switch ($opt_i) {
 		case "maj" {$increment="j"}
 		case "min" {$increment="i"}
-- 
1.8.2.3