[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository cvs.pm,1.26,1.27

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

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

Modified Files:
	cvs.pm 
Log Message:
SandWeb::Repository now returns "output" and "error", where "error" is an error
message, not an error code.

If there is no error message, everything went fine. If there is, it should be
displayed to the user ( the error code from the shell is inside the error message ).

This eliminates the annoyance of dealing with 1 being a good error code in Perl and 0 being a good error code in the Unix shell.


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -U2 -r1.26 -r1.27
--- cvs.pm	19 Jun 2002 08:04:31 -0000	1.26
+++ cvs.pm	19 Jun 2002 22:00:41 -0000	1.27
@@ -671,5 +671,5 @@
 
 	%return = (
-		output => "$output",
+		output => join(//,@output_lines),
 	);