Subject: | dslip() does not print the licence bit |
Hello Jos,
While trying to use CPANPLUS, I found that the dslip() method does not print the licence bit. It's not critical but it's not the expected behaviour. Here is a small script that expose the problem:
#!/usr/bin/perl
use strict;
use CPANPLUS::Backend;
my $cpan = new CPANPLUS::Backend;
@ARGV or die "usage: $0 module_name\n";
my $module = $cpan->parse_module(module => shift);
printf "\e[1m%s\e[0m %s %5s by %s (%s)\n",
$module->module, $module->version, $module->dslip,
$module->author->cpanid, $module->author->author;
Called with a module name, it prints some information, including the DSLIP metadata:
$ perl -w dslip Net::P0f
[MSG] Checking if source files are up to date
[MSG] Retrieving /home/maddingue/.cpanplus/sourcefiles.2.13.stored
Net::P0f 0.01 adpO by SAPER (Sebastien Aperghis-Tramoni)
[MSG] Writing state information back to disk. This may take a little while.
As you can see, ->dslip() returned "adpO" instead of "apdOp". The final "p" (the licence) is missing.
Regards,
Sébastien Aperghis-Tramoni