From: Zdeněk Šustr <sustr4@cesnet.cz>
Date: Mon, 26 Jan 2009 15:28:53 +0000 (+0000)
Subject: Clean trailing slahes from module names.
X-Git-Tag: glite-lb-doc_R_1_0_0_3~6
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=c9f9e1fe502fdc6d80e786c4eb8367b3e55da990;p=jra1mw.git

Clean trailing slahes from module names.
---

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"}