From 8c5c90668ac7ed7fd165d0b8d3ea9c54d67abc13 Mon Sep 17 00:00:00 2001 From: joerg Date: Sun, 28 Apr 1996 12:32:43 +0000 Subject: Fix a bogon that prevented easy-import from inserting the new module name in alphabetical order (broken by my previous commit). Pointed out by: asami --- gnu/usr.bin/cvs/contrib/easy-import.pl | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'gnu') diff --git a/gnu/usr.bin/cvs/contrib/easy-import.pl b/gnu/usr.bin/cvs/contrib/easy-import.pl index c12ad3f..68d7027 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: easy-import.pl,v 1.5 1996/01/02 07:39:03 joerg Exp $ +# $Id: easy-import.pl,v 1.6 1996/04/07 10:22:37 joerg 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.5 $' . "\n"; # 'emacs kludge + print STDERR '$Source: /home/ncvs/src/gnu/usr.bin/cvs/contrib/easy-import.pl,v $ $Revision: 1.6 $' . "\n"; # 'emacs kludge exit 0; } die "usage: $0 [-v] [-n] [moduledir]\n" . @@ -343,15 +343,14 @@ print "${so}This is your last chance to interrupt, " . $| = 0; <>; -$mod = ""; -foreach $tmp (@cvsmods) { - if($tmp gt $modname) { - $mod = $tmp; - last; - } -} - if (!$branchimport) { + $mod = ""; + foreach $tmp (sort(keys(%cvsmods))) { + if($tmp gt $modname) { + $mod = $tmp; + last; + } + } if($mod eq "") { # we are going to append our module $cmd = "\$\na\n"; -- cgit v1.1