support remote imports (you must have a local cvs with same path as
remote for this to work) Approved/Improved by: joerg
This commit is contained in:
parent
fa03459efb
commit
1475bac7ec
@ -8,7 +8,7 @@
|
||||
#
|
||||
# Written by Jörg Wunsch, 95/03/07, and placed in the public domain.
|
||||
#
|
||||
# $Id$
|
||||
# $Id: easy-import.pl,v 1.12 1997/02/22 15:45:12 peter Exp $
|
||||
|
||||
require "complete.pl";
|
||||
require "getopts.pl";
|
||||
@ -22,7 +22,7 @@ sub scan_opts
|
||||
|
||||
$dont_do_it = "-n" if $opt_n;
|
||||
if($opt_v) {
|
||||
print STDERR '$Source: /home/ncvs/src/gnu/usr.bin/cvs/contrib/easy-import.pl,v $ $Revision: 1.11 $' . "\n"; # 'emacs kludge
|
||||
print STDERR '$Source: /home/ncvs/src/gnu/usr.bin/cvs/contrib/easy-import.pl,v $ $Revision: 1.12 $' . "\n"; # 'emacs kludge
|
||||
exit 0;
|
||||
}
|
||||
die "usage: $0 [-v] [-n] [moduledir]\n" .
|
||||
@ -155,6 +155,7 @@ sub cvs_init
|
||||
|
||||
# get the list of available repositories
|
||||
$cvsroot = $ENV{'CVSROOT'};
|
||||
$cvsroot = (split(/:/, $cvsroot, 2))[1] if $cvsroot =~ /:/;
|
||||
@reps = &lsdir($cvsroot);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user