Le 28/02/2019 à 14:04, Patrick Matthäi a écrit :
> Package: devscripts
> Version: 2.19.3
> Severity: normal
>
>
> Hi,
>
> with uscan on buster (instead of stretch) uscan fails to check two packages:
>
> $ uscan --report --verbose
> uscan info: uscan (version 2.19.3) See uscan(1) for help
> uscan info: Scan watch files in .
> uscan info: Check debian/watch and debian/changelog in .
> uscan info: package="ckport" version="0.1~rc1-8" (as seen in debian/changelog)
> uscan info: package="ckport" version="0.1~rc1" (no epoch/revision)
> uscan info: ./debian/changelog sets package="ckport" version="0.1~rc1"
> uscan info: Found upstream signing keyring: debian/upstream/signing-key.asc
> uscan info: Process watch file at: debian/watch
> package = ckport
> version = 0.1~rc1
> pkg_dir = .
> uscan info: opts:
> pgpsigurlmangle=s/$/.asc/,uversionmangle=s/~//;s/beta/~beta/;s/-pr/~pr/;s/rc/~rc/
> uscan info: line: http://software.keep-cool.org/dl/ckport/
> ckport-([^-]*)\.tar\.gz
> uscan info: Parsing pgpsigurlmangle=s/$/.asc/
> uscan info: Parsing uversionmangle=s/~//;s/beta/~beta/;s/-pr/~pr/;s/rc/~rc/
> uscan info: line: http://software.keep-cool.org/dl/ckport/
> ckport-([^-]*)\.tar\.gz
> uscan info: Last orig.tar.* tarball version (from debian/changelog): 0.1~rc1
> uscan info: Last orig.tar.* tarball version (dversionmangled): 0.1~rc1
> uscan info: Requesting URL:
> http://software.keep-cool.org/dl/ckport/
> Use of uninitialized value $content in concatenation (.) or string at
> /usr/share/perl5/Devscripts/Uscan/http.pm line 66.
This looks like a bug in HTTP::Response: $response contains valid HTML
data in $response->{_content} but $response->decoded_content returns
"undef".
(Cc to Perl team)
Dumper of $response:
$VAR1 = bless( {
'_msg' => 'Ok',
'_protocol' => 'HTTP/1.1',
'_content' => '<HTML>
<HEAD><TITLE>Index of software.keep-cool.org/dl/ckport/</TITLE></HEAD>
<BODY BGCOLOR="#99cc99" TEXT="#000000" LINK="#2020ff" VLINK="#4040cc">
<H4>Index of software.keep-cool.org/dl/ckport/</H4>
<PRE>
<A HREF=".">. </A> 11Aug2012 17:38
4096
<A HREF="..">.. </A> 29Apr2011 13:58
4096
<A HREF=".cvsignore">.cvsignore </A> 05Jul2012
13:00 15
<A HREF="CVS">CVS </A> 05Jul2012 13:00
4096
<A HREF="ckport-0.1beta0.tar.gz">ckport-0.1beta0.tar.gz </A>
15Apr2011 00:49 18636
<A HREF="ckport-0.1beta0.tar.gz.asc">ckport-0.1beta0.tar.gz.asc
</A> 15Apr2011 00:49 482
<A HREF="ckport-0.1beta1.tar.gz">ckport-0.1beta1.tar.gz </A>
06May2011 22:58 19485
<A HREF="ckport-0.1beta1.tar.gz.asc">ckport-0.1beta1.tar.gz.asc
</A> 06May2011 22:58 482
<A HREF="ckport-0.1beta2.tar.gz">ckport-0.1beta2.tar.gz </A>
28May2011 15:26 20379
<A HREF="ckport-0.1beta2.tar.gz.asc">ckport-0.1beta2.tar.gz.asc
</A> 28May2011 15:26 482
<A HREF="ckport-0.1rc0.tar.gz">ckport-0.1rc0.tar.gz </A>
23Jul2011 22:38 20670
<A HREF="ckport-0.1rc0.tar.gz.asc">ckport-0.1rc0.tar.gz.asc </A>
23Jul2011 22:38 482
<A HREF="ckport-0.1rc1.tar.gz">ckport-0.1rc1.tar.gz </A>
11Aug2012 17:38 21514
<A HREF="ckport-0.1rc1.tar.gz.asc">ckport-0.1rc1.tar.gz.asc </A>
11Aug2012 17:38 482
</PRE>
<HR>
<ADDRESS><A
HREF="http://www.acme.com/software/mini_httpd/";>mini_httpd/1.19
19dec2003</A></ADDRESS>
</BODY>
</HTML>
',
'_request' => bless( {
'_uri' => bless( do{\(my $o =
'http://software.keep-cool.org/dl/ckport/')}, 'URI::http' ),
'_content' => '',
'_uri_canonical' => $VAR1->{'_request'}{'_uri'},
'_headers' => bless( {
'user-agent' => 'Debian uscan'
}, 'HTTP::Headers' ),
'_method' => 'GET'
}, 'HTTP::Request' ),
'_headers' => bless( {
'content-type' => 'text/html; charset=%s',
'content-length' => '1731',
'last-modified' => 'Sat, 11 Aug 2012 15:38:03 GMT',
'::std_case' => {
'client-date' => 'Client-Date',
'client-peer' => 'Client-Peer',
'client-response-num' => 'Client-Response-Num',
'title' => 'Title'
},
'client-date' => 'Thu, 28 Feb 2019 14:42:00 GMT',
'date' => 'Thu, 28 Feb 2019 14:42:00 GMT',
'title' => 'Index of software.keep-cool.org/dl/ckport/',
'client-response-num' => 1,
'server' => 'mini_httpd/1.19 19dec2003',
'connection' => 'close',
'client-peer' => '2a01:4f8:221:1e01::5:2:80'
}, 'HTTP::Headers' ),
'_rc' => 200
}, 'HTTP::Response' );
