After convincing myself by a browse of the perl code that none of the existing options to update-alternatives will make it do what I want, I wrote the following. Whoever is responsible for update-alternatives in Debian, please consider merging this into the official version.
begin 755 sane-update-alternatives M([EMAIL PROTECTED]<B]B:6XO<&5R;"`M+0H*(R!I='[EMAIL PROTECTED]($%P<B`R.2`Q-#HP-SHT M,"!01%0@,C`P,`HC(&-H;F%G92!A;&[EMAIL PROTECTED])N871I=F5S("AS;&%V97,@ M:6YC;'5D960I(&%T(&]N8V4N"@IU<[EMAIL PROTECTED]@["G5S92!'971O<'0Z.E-T M9#L*"B,@1VQO8F%L('9A<FEA8FQE<SH*(R`@)&YA;64@("`@("`@("`@("`@ M3F%M92!O9B!T:&[EMAIL PROTECTED])[EMAIL PROTECTED]'1H92!S>6UL:6YK*2!W92!A<F4@ M<')O8V5S<VEN9PHC("!`<VQA=F5N86UE<R`@("`@("!,:7-T('=I=&@@;F%M M97,@;V8@<VQA=F5L:6YK<PHC("`E<VQA=F5N=6T@("`@("`@("[EMAIL PROTECTED])O M;2!N86UE(&]F('-L879E;&EN:R!T;R!S;&%V92UI;F1E>"`H:6YT;R!`<VQA M=F5L:6YK<RD*([EMAIL PROTECTED]'-L879E;&EN:W,@("`@("[EMAIL PROTECTED]&ES="!O9B!S;&%V96QI M;FMS("AI;F1E>&5D(&)Y('-L879E+6EN9&5X*0HC("`E=F5R<VEO;FYU;2`@ M("`@("[EMAIL PROTECTED])O;2!C=7)R96YT;'[EMAIL PROTECTED]:6QA8FQE('9E<G-I;VYS(&EN M=&[EMAIL PROTECTED]'9E<G-I;VYS(&%N9"!`<')I;W)I=&EE<PHC("!`=F5R<VEO;G,@("`@ M("`@("!,:7-T(&]F(&%V86EL86)L92!V97)S:6]N<R!F;W(@86QT97)N871I M=F4*(R`@)7!R:6]R:71I97,@("`@("[EMAIL PROTECTED](&9R;[EMAIL PROTECTED]'9E<G-I;VXM:6YD M97@@=&\@<')I;W)I='D*(R`@)7-L879E<&%T:"`@("`@("[EMAIL PROTECTED](&9R;VT@ M*$!V97)S:6]N+6EN9&5X+'-L879E;[EMAIL PROTECTED]&\@<VQA=F4M<&%T:`H*)'9E M<G-I;VX](C$N-BXQ,BXY.2([(",@5&AI<R!L:6YE(&UO9&EF:65D(&)Y($UA M:V5F:6QE"G-U8B!U<V%G979E<G-I;VX@>PH@("`@<')I;G0H4U1$15)2(#P\ M14Y$*0I5<V%G93H@<V%N92UU<&1A=&4M86QT97)N871I=F5S(#QN86UE/B`\ M<&%T:#X*3W!T:6]N<SH@("UV("UH("UA(#QA;'1?9&ER96-T;W)Y/B`M9"`\ M861M7V1I<F5C=&]R>3X*14Y$"B`@("`@("[EMAIL PROTECTED]'P@)G%U:70H(F9A:6QE9"!T M;R!W<FET92!U<V%G93H@)"$B*3L*?0IS=6(@<75I="![('!R:6YT(%-41$52 M4B`B<V%N92UU<&1A=&4M86QT97)N871I=F5S.B!`7UQN([EMAIL PROTECTED]"@R*3L@ M?0IS=6(@8F%D=7-A9V4@>R!P<FEN="!35$1%4E(@(G-A;F4M=7!D871E+6%L M=&5R;F%T:79E<[EMAIL PROTECTED]<;EQN(CL@)G5S86=E=F5R<VEO;[EMAIL PROTECTED]"@R*3L@ M?0H*)&%L=&1I<CT@)R]E=&,O86QT97)N871I=F5S)SL*)&%D;6EN9&ER/2`G M+W9A<B]L:6(O9'!K9R]A;'1E<FYA=&EV97,G.PHD=F5R8F]S96UO9&4](#`[ M"@II9B`H(6=E=&]P=',H)W9H83ID.B<I*2![(&)A9'5S86=E("=B860@;W!T M:6]N*',I)[EMAIL PROTECTED]@(3T@,BD@>R!B861U<V%G92`G/&YA;64^ M(&%N9"`\<&%T:[EMAIL PROTECTED])G=6UE;G1S(')E<75I<F5D)[EMAIL PROTECTED]:[EMAIL PROTECTED]"1O<'1? M:"D@>R`F=7-A9V5V97)S:6]N.R!E>&ET(#`[('T*"FEF("@D;W!T7V$I('L@ M)&%L=&1I<B`]("1O<'[EMAIL PROTECTED])&]P=%]D*2![("1A9&UI;F1I<B`] M("1O<'[EMAIL PROTECTED])&]P=%]V*2![("1V97)B;W-E;6]D92`](#$[('T* M"B1\/3$["B1N86UE(#T@)$%21U9;,%T["B1P871H(#T@)$%21U9;,5T["@H@ M:[EMAIL PROTECTED]&]P96XH048L(B1A9&UI;F1I<B\D;F%M92(I*2!["B`@("`D;6%N=6%L M/2`F9VPH(FUA;F9L86<B*3L*("`@("[EMAIL PROTECTED]@)V%U=&\G('Q\("1M [EMAIL PROTECTED]@)VUA;G5A;"<@?'P@)F)A9&9M="@B;6%N9FQA9R(I.PH@("`@ M)&QI;FL]("9G;"@B;&EN:R(I.PH@("[EMAIL PROTECTED];&[EMAIL PROTECTED]"@D<VYA;64]("9G;"@B M<VYA;64B*2D@;F4@)R<I('L*("`@("`@("!P=7-H*$!S;&%V96YA;65S+"1S M;F%M92D["B`@("`@("[EMAIL PROTECTED]&5F:6YE9"@D<VQA=F5N=6U[)'-N86UE?2D@)B8@ M)F)A9&9M="@B9'5P;&EC871E('-L879E("1T<VYA;64B*3L*("`@("`@("`D M<VQA=F5N=6U[)'-N86UE?3T@)"-S;&%V96YA;65S.PH@("`@("`@("1S;&EN M:ST@)F=L*")S;&EN:R(I.PH@("`@("`@("1S;&EN:R!E<2`D;&EN:R`F)B`F M8F%D9FUT*")S;&%V92!L:6YK('-A;[EMAIL PROTECTED],@;6%I;B!L:6YK("1L:6YK(BD[ M"B`@("`@("`@)'-L879E;&EN:V-O=6YT>R1S;&EN:WTK*R`F)B`F8F%D9FUT M*")D=7!L:6-A=&4@<VQA=F4@;&EN:R`D<VQI;FLB*3L*("`@("`@("!P=7-H M*$!S;&%V96QI;FMS+"1S;&EN:RD["B`@("!]"B`@("!W:&EL92`H*"1V97)S M:6]N/2`F9VPH(G9E<G-I;VXB*2D@;F4@)R<I('L*("`@("`@("!D969I;F5D M*"1V97)S:6]N;G5M>R1V97)S:6]N?2D@)B8@)F)A9&9M="@B9'5P;&EC871E M('!A=&@@)'1V97(B*3L*("`@("`@("!P=7-H*$!V97)S:6]N<RPD=F5R<VEO M;BD["B`@("`@("`@)'9E<G-I;VYN=6U[)'9E<G-I;VY]/2`D:3T@)"-V97)S M:6]N<SL*("`@("`@("`D<')I;W)I='D]("9G;"@B<')I;W)I='DB*3L*("`@ M("`@("`D<')I;W)I='D@/7X@;2]>6RTK73]<9"LD+R!\?"`F8F%D9FUT*")P M<FEO<FET>2`D=F5R<VEO;B`D<')I;W)I='DB*3L*("`@("`@("`D<')I;W)I M=&EE<ULD:5T]("1P<FEO<FET>3L*("`@("`@("!F;W)E86-H("1S;&%V96YA M;[EMAIL PROTECTED];&%V96YA;65S*2!["B`@("`@("`@("`@("1S;&%V97!A=&A[)&DL M)'-L879E;F%M97T]("9G;"@B<W!A=&@B*3L*("`@("`@("!]"B`@("!]"B`@ M("!C;&]S92A!1BD["B`@("`D9&%T87)E860],3L*?2!E;'-I9B`H)"$@(3T@ M)D5.3T5.5"D@>PH@("`@)G%U:70H(F9A:6QE9"!T;R!O<&5N("1A9&UI;F1I M<B\D;F%M93H@)"$B*3L*?0H*)F-O;F9I9U]A;'1E<FYA=&EV97,H)&YA;64I M.PIE>&ET(#`["@IS=6(@8V]N9FEG7V%L=&5R;F%T:79E<R!["B`@("!G<F5P M*"@D<&%T:"!E<2`D7RDL($!V97)S:6]N<[EMAIL PROTECTED]'P@)G%U:70H(B1P871H(&ES M(&YO="!O;F4@;[EMAIL PROTECTED]&AE(&%L=&5R;F%T:79E<R!F;W(@)&YA;64A(BD[(`H@ M("`@<')I;[EMAIL PROTECTED](")5<VEN9R`D<&%T:"!T;R!P<F]V:61E("1N86UE M+EQN(CL*("`@("1P<F5F97)R960@/2`D=F5R<VEO;FYU;7LD<&%T:'T["B`@ M("!M>2`D<W!A=&@@/2`D=F5R<VEO;G-;)'!R969E<G)E9%T["B`@("!S>6UL M:6YK*"(D<W!A=&@B+"(D86QT9&ER+R1N86UE+F1P:V<M=&UP([EMAIL PROTECTED]'P*("`@ M("`@("`F<75I="@B=6YA8FQE('1O(&UA:V4@)&%L=&1I<B\D;F%M92YD<&MG M+71M<"!A('-Y;6QI;[EMAIL PROTECTED]&\@)'-P871H.B`D(2(I.PH@("`@<F5N86UE7VUV M*"(D86QT9&ER+R1N86UE+F1P:V<M=&UP(BPB)&%L=&1I<B\D;F%M92(I('Q\ M"B`@("`@("`@)G%U:70H(G5N86)L92!T;R!I;G-T86QL("1A;'1D:7(O)&YA M;64N9'!K9RUT;[EMAIL PROTECTED],@)&%L=&1I<B\D;F%M93H@)"$B*3L*("`@(&EF("@D M=F5R8F]S96UO9&4I('L@)G!R*")P;VEN=&5D("1A;'1D:7(O)&YA;[EMAIL PROTECTED]&\@ M)'-P871H([EMAIL PROTECTED]("`@(&9O<F5A8V@@)'-L879E;F%M92`H0'-L879E;F%M M97,I('L*("`@("`@("`D<W!A=&@@/2`D<VQA=F5P871H>R1P<F5F97)R960L M)'-L879E;F%M97T["B`@("`@("`@<WEM;&EN:[EMAIL PROTECTED])'-P871H(BPB)&%L=&1I M<B\D<VQA=F5N86UE+F1P:V<M=&UP([EMAIL PROTECTED]'P*("`@("`@("`@("`@)G%U:70H M(G5N86)L92!T;R!M86ME("1A;'1D:7(O)'-L879E;F%M92YD<&MG+71M<"!A M('-Y;6QI;[EMAIL PROTECTED]&\@)'-P871H.B`D(2(I.PH@("`@("`@(')E;[EMAIL PROTECTED] M)&%L=&1I<B\D<VQA=F5N86UE+F1P:V<M=&UP(BPB)&%L=&1I<B\D<VQA=F5N M86UE([EMAIL PROTECTED]'P*("`@("`@("`@("`@)G%U:70H(G5N86)L92!T;R!I;G-T86QL M("1A;'1D:7(O)'-L879E;F%M92YD<&MG+71M<"!A<R`D86QT9&ER+R1S;&%V M96YA;64Z("0A(BD["B`@("`@("`@:[EMAIL PROTECTED]"1V97)B;W-E;6]D92D@>R`F<'(H M(G!O:6YT960@)&%L=&1I<B\D<VQA=F5N86UE('1O("1S<&%T:"(I('T["B`@ M("!]"GT*"G-U8B!P<B![('!R:6YT*%-41$]55"`B0%]<;B(I('Q\("9Q=6ET M*")E<G)O<B!W<FET:6YG('-T9&]U=#H@)"[EMAIL PROTECTED](@<&%F('L*("`@ M("1?6S!=(#U^(&TO7&XO("8F("9Q=6ET*")N97=L:6YE<R!P<F]H:6)I=&5D M(&EN('5P9&%T92UA;'1E<FYA=&EV97,@9FEL97,@*"1?6S!=*2(I.PH@("`@ M<')I;G0H048@(B1?6S!=7&XB*2!\?"`F<75I="@B97)R;W(@=W)I=&EN9R!S M=&1O=70Z("0A(BD["GT*<W5B(&=L('L*("`@("0A/3`[("1?/2`\048^.PH@ M("`@;&5N9W1H*"1?*2!\?"`F<75I="@B97)R;W(@;W(@96]F(')E861I;F<@ M)&%D;6EN9&ER+R1N86UE(&9O<B`D7ULP72`H)"$I(BD["B`@("!S+UQN)"\O M('Q\("9B861F;70H(FUI<W-I;F<@;F5W;&EN92!A9G1E<B`D7ULP72(I.PH@ M("`@)%\["GT*<W5B(&)A9&9M="!["B`@("`F<75I="@B:6YT97)[EMAIL PROTECTED])R M;W(Z("1A9&UI;F1I<B\D;F%M92!C;W)R=7!T.B`D7ULP72(I.PI]"G-U8B!R M96YA;65?;78@>PH@("`@<F5T=7)N("AR96YA;64H)%];,%TL("1?6S%=*2!\ M?"`H<WES=&5M*"@B;78B+"`D7ULP72P@)%];,5TI*2`]/2`P*2D["GT*97AI ?="@P*3L*"B,@=FEM.B!N;[EMAIL PROTECTED]',]."!S=STT"@`` ` end -- Ian Zimmerman, Oakland, California, U.S.A. In his own soul a man bears the source from which he draws all his sorrows and his joys. Sophocles.