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),
);
|
