[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.11,1.12

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv24490

Modified Files:
	CVS.pm 
Log Message:
fixed another bug related to // .. sigh.

Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -U2 -r1.11 -r1.12
--- CVS.pm	2001/11/26 23:33:17	1.11
+++ CVS.pm	2001/11/27 00:26:48	1.12
@@ -50,6 +50,9 @@
 	# removing leading // or /
    
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+	if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
  
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -91,6 +94,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+	if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -134,6 +140,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+	if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -164,6 +173,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+	if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -216,6 +228,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -259,6 +274,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -300,6 +318,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -339,6 +360,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -375,6 +399,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -411,6 +438,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -447,7 +477,10 @@
 	# removing leading // or /
    
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
- 
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
+
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 
@@ -499,6 +532,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -520,6 +556,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -559,6 +598,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -600,6 +642,9 @@
 	# removing leading leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -641,6 +686,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+	if ($file =~ '\/\/') {
+		$file =~ s/\/\///g;
+	} else {
+		$file =~ s/\///;
+	}
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -690,6 +738,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -729,6 +780,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -782,6 +836,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -825,6 +882,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
@@ -866,6 +926,9 @@
 	# removing leading // or /
   
-	$file =~ s/\/\///g;
-	$file =~ s/\///;
+        if ($file =~ '\/\/') {
+                $file =~ s/\/\///g;
+        } else {
+                $file =~ s/\///;
+        }
 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;