diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/cvs/contrib/easy-import.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/usr.bin/cvs/contrib/easy-import.pl b/gnu/usr.bin/cvs/contrib/easy-import.pl index 2c457ac..9caba25 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); } |
