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

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

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

Modified Files:
	cvs.pm 
Log Message:
improving expect error msgs


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -U2 -r1.27 -r1.28
--- cvs.pm	19 Jun 2002 22:00:41 -0000	1.27
+++ cvs.pm	24 Jun 2002 20:39:25 -0000	1.28
@@ -288,5 +288,5 @@
 	my $output = $diff->colored_diff();
 
-	my %return = ( 
+	%return = ( 
 		output => $output,
 	);
@@ -640,4 +640,9 @@
         );
 
+	if ($return{'error'}) {
+		# an error must have occurred
+		return %return;
+	}
+
 	my $raw_output = $return{'output'};
 
@@ -671,5 +676,5 @@
 
 	%return = (
-		output => join(//,@output_lines),
+		output => join("",@output_lines),
 	);