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 = $?;
|
