[SCM] Git repository for devscripts branch, master, updated. v2.13.2-13-gbdb59b1

[James McCoy]

The following commit has been merged in the master branch:
commit bdb59b1c005d0d627bcdc4bdbff663f3449e05e7
Author: James McCoy <jamessan at debian.org>
Date:   Fri Jul 12 19:48:25 2013 -0400

    uscan: Add "Accept: */*" header to fix downloading from Alioth.
    
    Closes: #712261
    Signed-off-by: James McCoy <jamessan at debian.org>

diff --git a/debian/changelog b/debian/changelog
index e5cb2e4..601e9ef 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -16,6 +16,8 @@ devscripts (2.13.3) UNRELEASED; urgency=low
     #712227)
   * debcommit: Use "git status --porcelain" to check for a dirty working
     directory.  (Closes: #712166)
+  * uscan: Add "Accept: */*" header to fix downloading from Alioth.  Thanks to
+    Dmitry Smirnov for the patch.  (Closes: #712261)
 
   [ Chris Boot ]
   * bts: Fix no-mutt option. (Closes: #709999)
diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 298e5cd..9daaf49 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -694,6 +694,7 @@ sub process_watchline ($$$$$$)
     # Comma-separated list of features that sites being queried might
     # want to be aware of
     $headers->header('X-uscan-features' => 'enhanced-matching');
+    $headers->header('Accept' => '*/*');
     %dehs_tags = ('package' => $pkg);
 
     if ($watch_version == 1) {
@@ -1345,7 +1346,9 @@ EOF
 	# substitute HTML entities
 	# Is anything else than "&" required?  I doubt it.
 	print STDERR "$progname debug: requesting URL $upstream_url\n" if $debug;
-	$request = HTTP::Request->new('GET', $upstream_url);
+	my $headers = HTTP::Headers->new;
+	$headers->header('Accept' => '*/*');
+	$request = HTTP::Request->new('GET', $upstream_url, $headers);
 	$response = $user_agent->request($request, "$destdir/$newfile_base");
 	if (! $response->is_success) {
 	    if (defined $pkg_dir) {

-- 
Git repository for devscripts