34 |
|
$self->{user}=""; |
35 |
|
$self->{base}=""; |
36 |
|
# $self->{passbase}=$ENV{HOME}."/.cvspass"; |
37 |
< |
$self->set_passbase("/tmp/CVSmodule/.cvspass"); |
37 |
> |
$self->set_passbase("/tmp/".$>."CVSmodule/.cvspass"); |
38 |
|
return $self; |
39 |
|
} |
40 |
|
|
97 |
|
} |
98 |
|
#now perform the cvs command |
99 |
|
#print ( join ' ', ( $self->{cvs}, "-d", $self->{cvsroot}, @cmds, "\n" )); |
100 |
< |
system( "$self->{cvs}" , "-d", "$self->{cvsroot}", @cmds ); |
100 |
> |
return ( system( "$self->{cvs}" ,"-Q", "-d", "$self->{cvsroot}", @cmds )); |
101 |
|
} |
102 |
|
|
103 |
|
sub _updatecvsroot { |