[tlu] TLU beta with fancy versioning

[Adam R. Maxwell]

On Apr 17, 2013, at 10:14 , Norbert Preining <preining at logic.at> wrote:

> Can you try that patch ...

It sounds perfect, but maybe I'm applying the patch wrong (using TL 2013):

$ tlmgr --version
tlmgr revision 29870 (2013-04-12 01:34:02 +0200)
tlmgr using installation: /usr/local/texlive/2013basic
TeX Live (http://tug.org/texlive) version 2013

$ patch tlmgr.pl tlmgr-ctan-machine.patch 
patching file tlmgr.pl
Hunk #1 succeeded at 2257 (offset -34 lines).
Hunk #2 succeeded at 2265 (offset -34 lines).
Hunk #3 succeeded at 2515 (offset -37 lines).
Hunk #4 succeeded at 2546 (offset -37 lines).
Hunk #5 succeeded at 2559 (offset -37 lines).
Hunk #6 succeeded at 2710 (offset -37 lines).
Hunk #7 succeeded at 2726 (offset -37 lines).
Hunk #8 succeeded at 2840 (offset -37 lines).
Hunk #9 succeeded at 2853 (offset -37 lines).
Hunk #10 FAILED at 3401.
Hunk #11 succeeded at 3366 with fuzz 2 (offset -81 lines).
Hunk #12 succeeded at 3424 (offset -49 lines).
1 out of 12 hunks FAILED -- saving rejects to file tlmgr.pl.rej

$ cat tlmgr.pl.rej 
***************
*** 3383,3388 ****
      my $flag = $FLAG_INSTALL;
      my $re = "";
      my $tlp = $remotetlpdb->get_package($pkg);
      if (!defined($tlp)) {
        info("Unknown package $pkg\n");
        next;
--- 3401,3407 ----
      my $flag = $FLAG_INSTALL;
      my $re = "";
      my $tlp = $remotetlpdb->get_package($pkg);
+     my $rctanvers = $tlp->cataloguedata->{'version'};
      if (!defined($tlp)) {
        info("Unknown package $pkg\n");
        next;