From 1475bac7ec52e941d7e01dff8557313d6647d0e4 Mon Sep 17 00:00:00 2001 From: John-Mark Gurney Date: Mon, 9 Jun 1997 10:08:07 +0000 Subject: support remote imports (you must have a local cvs with same path as remote for this to work) Approved/Improved by: joerg --- gnu/usr.bin/cvs/contrib/easy-import.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gnu/usr.bin/cvs') diff --git a/gnu/usr.bin/cvs/contrib/easy-import.pl b/gnu/usr.bin/cvs/contrib/easy-import.pl index 2c457ace3343..9caba25267d6 100644 --- a/gnu/usr.bin/cvs/contrib/easy-import.pl +++ b/gnu/usr.bin/cvs/contrib/easy-import.pl @@ -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); } -- cgit v1.2.3