ossp-pkg/shiela/shiela.pl 1.54 -> 1.55
--- shiela.pl 2004/05/07 06:27:07 1.54
+++ shiela.pl 2004/05/07 07:48:01 1.55
@@ -641,7 +641,7 @@
sub recv {
my $cvs = shift;
if (wantarray) {
- my @lines = $cvs->{rfd}->getlines;
+ my @lines = ($cvs->{rfd}->getlines || ());
my @nlines = ();
foreach my $line (@lines) {
print STDERR "cvs server: <- $line" if ($cvs->{trace});
@@ -651,7 +651,7 @@
return @nlines;
}
else {
- my $line = $cvs->{rfd}->getline;
+ my $line = ($cvs->{rfd}->getline || "");
print STDERR "cvs server: <- $line" if ($cvs->{trace});
$line =~ s|\n$||;
return $line;
|
|
