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

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

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

Modified Files:
	CVS.pm 
Log Message:
removed the slash check. I just realized how stupid it is; this is not CVS.pm's job.

Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- CVS.pm	2001/11/27 00:26:48	1.12
+++ CVS.pm	2001/11/27 00:34:24	1.13
@@ -48,12 +48,4 @@
 	}
  
-	# removing leading // or /
-   
-	if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
- 
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -92,12 +84,4 @@
 	}
  
-	# removing leading // or /
-  
-	if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -138,12 +122,4 @@
 	}
  
-	# removing leading // or /
-  
-	if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -171,12 +147,4 @@
 	if ($date) { push @param, " $date" };
 
-	# removing leading // or /
-  
-	if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -226,12 +194,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -272,12 +232,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -316,12 +268,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -358,12 +302,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -397,12 +333,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -436,12 +364,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -475,12 +395,4 @@
 	}
    
-	# removing leading // or /
-   
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 
@@ -530,12 +442,4 @@
 	}
 
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -554,12 +458,4 @@
 	my @param = 'logout';
 
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -596,12 +492,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -640,12 +528,4 @@
 	}
  
-	# removing leading leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -684,12 +564,4 @@
 	}
 
-	# removing leading // or /
-  
-	if ($file =~ '\/\/') {
-		$file =~ s/\/\///g;
-	} else {
-		$file =~ s/\///;
-	}
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -736,12 +608,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -778,12 +642,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -834,12 +690,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -880,12 +728,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;
@@ -924,12 +764,4 @@
 	}
  
-	# removing leading // or /
-  
-        if ($file =~ '\/\/') {
-                $file =~ s/\/\///g;
-        } else {
-                $file =~ s/\///;
-        }
-
 	my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
 	my $errorlevel = $?;