diff -up BackPAN-Index-0.40/t/lib/TestUtils.pm.orig BackPAN-Index-0.40/t/lib/TestUtils.pm

--- BackPAN-Index-0.40/t/lib/TestUtils.pm.orig	2011-03-01 01:59:30.000000000 +0100

+++ BackPAN-Index-0.40/t/lib/TestUtils.pm	2011-03-20 10:50:09.000000000 +0100

@@ -39,7 +39,7 @@ sub backpan_index_url {

 # Init a new BackPAN::Index object with the right options for testing

 sub new_backpan {

     my %args = @_;

-    $args{backpan_index_url} = backpan_index_url() if $args{update};

+    $args{backpan_index_url} = backpan_index_url();

     return BackPAN::Index->new({

         cache_dir               => cache_dir(),

@@ -50,7 +50,7 @@ sub new_backpan {

 sub new_pbp {

     my %args = @_;

-    $args{backpan_index_url} = backpan_index_url() if $args{update};

+    $args{backpan_index_url} = backpan_index_url();

     require Parse::BACKPAN::Packages;

     return Parse::BACKPAN::Packages->new({