[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.20,1.21

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

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

Modified Files:
	CVS.pm 
Log Message:
added -w to perl invokation, cleaned up potential problems that
were indicated


Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- CVS.pm	2002/01/07 05:19:48	1.20
+++ CVS.pm	2002/01/18 19:25:08	1.21
@@ -32,6 +32,6 @@
 	my @param = 'add';
 
-	if ($type = "binary") { push @param, " -kb" };
-	if ($type = "text") { push @param, " -kkv" };
+	if ($type == "binary") { push @param, " -kb" };
+	if ($type == "text") { push @param, " -kkv" };
 	if ($message) { push @param, " -m $message" };
 
@@ -59,6 +59,6 @@
 	my @param = 'admin';
 
-	if ($type = "binary") { push @param, " -kb -MCOPY" };
-	if ($type = "text") { push @param, " -kkv -MMERGE" };
+	if ($type == "binary") { push @param, " -kb -MCOPY" };
+	if ($type == "text") { push @param, " -kkv -MMERGE" };
 
 	my %return = (