|
Check-in Number:
|
4565 | |
| Date: |
2004-May-07 09:48:01 (local)
2004-May-07 07:48:01 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
avoid unused variables |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
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;
|
|
