X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=topbloke.git;a=blobdiff_plain;f=topbloke-merge-lists;h=c717c4f149ba108c3bb7dac8f966976e637b273c;hp=efdd52b2b88a91232cc91b2b9d48f1830384c655;hb=f188259a4c10646773fe0bbde14aadd419f341c9;hpb=befe127cf99d6cc7006776345c3cb2dc43c3341c diff --git a/topbloke-merge-lists b/topbloke-merge-lists index efdd52b..c717c4f 100755 --- a/topbloke-merge-lists +++ b/topbloke-merge-lists @@ -8,6 +8,9 @@ our %flag; our (@order, @order_final_maybe); our $verbose=0; +# we don't use Getopt::Long because we want to be quick to start up +# and we're not really a very user-facing utility + while (@ARGV && $ARGV[0] =~ m/^\-/) { $_ = shift @ARGV; if (s/^-U//) {