[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.31,1.32

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

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

Modified Files:
	CVS.pm 
Log Message:
* tag implemented, also cleaned up some stuff w/ commit



Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -U2 -r1.31 -r1.32
--- CVS.pm	10 Mar 2002 01:56:05 -0000	1.31
+++ CVS.pm	11 Mar 2002 05:19:51 -0000	1.32
@@ -167,12 +167,13 @@
 	if ($recurse) { push @param, " -R" };
 
+	my $output;
+
 	if (!$message) {
-		print "There must be a commit message.\n";
-	return 0;
+		$output = "There must be a commit message.\n";
 	} else {
-		push @param, " -m \"$message\"" 
+		push @param, " -m \"$message\"";
+		$output = `cd \"$sandbox\" && cvs -d $root @param \"$file\" 2>&1`;
 	};
 
-	my $output = `cd \"$sandbox\" && cvs -d $root @param \"$file\" 2>&1`;
 	my $errorlevel = $?;