INTEGRATION: CWS hr23 (1.10.40); FILE MERGED
2005/11/24 15:07:28 hr 1.10.40.1: #i583125#: get_aliases_hash(): check for vcsid
This commit is contained in:
parent
090685c0fd
commit
b38681b791
1 changed files with 7 additions and 2 deletions
|
@ -4,9 +4,9 @@
|
|||
#
|
||||
# $RCSfile: CvsModule.pm,v $
|
||||
#
|
||||
# $Revision: 1.10 $
|
||||
# $Revision: 1.11 $
|
||||
#
|
||||
# last change: $Author: kz $ $Date: 2005-11-03 10:32:33 $
|
||||
# last change: $Author: hr $ $Date: 2005-12-06 17:55:42 $
|
||||
#
|
||||
# The Contents of this file are made available subject to
|
||||
# the terms of GNU Lesser General Public License Version 2.1.
|
||||
|
@ -470,6 +470,11 @@ sub get_aliases_hash {
|
|||
my $server = $self->cvs_server();
|
||||
my $repository = $self->cvs_repository();
|
||||
my $vcsid = $self->vcsid();
|
||||
|
||||
if ( !$vcsid ) {
|
||||
croak("ERROR: CvsModule::get_aliases_hash(): VCSID not set");
|
||||
}
|
||||
|
||||
my $root = ":$method:$vcsid\@$server:$repository";
|
||||
my $commando = "$cvs_binary -d $root checkout -c";
|
||||
if(!open(CHECKOUT, "$commando 2>&1 |")) {
|
||||
|
|
Loading…
Reference in a new issue