Back
From: metabase:user:322078bc-2aae-11df-837a-5e0a49663a4f
Subject: NA Net-DirectConnect-0.12 v5.8.9 GNU/Linux
Date: 2011-11-12T09:28:25Z
This distribution has been tested as part of the CPAN Testers
project, supporting the Perl programming language. See
http://wiki.cpantesters.org/ for more information or email
questions to cpan-testers-discuss@perl.org
--
Dear PRO,
This is a computer-generated error report created automatically by
CPANPLUS, version 0.9112. Testers personal comments may appear
at the end of this report.
Thank you for uploading your work to CPAN. However, it appears that
there were some problems testing your distribution.
TEST RESULTS:
Below is the error stack from stage 'make test':
[MSG] [Sat Nov 12 09:28:21 2011] cp lib/lib/abs.pm blib/lib/lib/abs.pm
Manifying blib/man3/lib::abs.3
[MSG] [Sat Nov 12 09:28:21 2011] Sending test report for 'lib-abs-0.92'
[MSG] [Sat Nov 12 09:28:21 2011] Ok, not sending test report
[MSG] [Sat Nov 12 09:28:21 2011] cp lib/Net/DirectConnect/sctp.pm blib/lib/Net/DirectConnect/sctp.pm
cp lib/Net/DirectConnect/adcs.pm blib/lib/Net/DirectConnect/adcs.pm
cp lib/Net/DirectConnect/http.pm blib/lib/Net/DirectConnect/http.pm
cp lib/Net/DirectConnect/pslib/pssql.pm blib/lib/Net/DirectConnect/pslib/pssql.pm
cp lib/Net/DirectConnect/hub.pm blib/lib/Net/DirectConnect/hub.pm
cp lib/Net/DirectConnect/adc.pm blib/lib/Net/DirectConnect/adc.pm
cp lib/Net/DirectConnect/filelist.pm blib/lib/Net/DirectConnect/filelist.pm
cp lib/Net/DirectConnect/ipv6.pm blib/lib/Net/DirectConnect/ipv6.pm
cp lib/Net/DirectConnect/pslib/psmisc.pm blib/lib/Net/DirectConnect/pslib/psmisc.pm
cp lib/Net/DirectConnect/clicli.pm blib/lib/Net/DirectConnect/clicli.pm
cp lib/Net/DirectConnect/clihub.pm blib/lib/Net/DirectConnect/clihub.pm
cp lib/Net/DirectConnect/hubcli.pm blib/lib/Net/DirectConnect/hubcli.pm
cp lib/Net/DirectConnect/nmdc.pm blib/lib/Net/DirectConnect/nmdc.pm
cp lib/Net/DirectConnect/hubhub.pm blib/lib/Net/DirectConnect/hubhub.pm
cp lib/Net/DirectConnect.pm blib/lib/Net/DirectConnect.pm
cp examples/dcget blib/script/dcget
/home/cpan/pit/thr/perl-5.8.9/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dcget
cp examples/dchub blib/script/dchub
/home/cpan/pit/thr/perl-5.8.9/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dchub
cp examples/dcshare blib/script/dcshare
/home/cpan/pit/thr/perl-5.8.9/bin/perl -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dcshare
Manifying blib/man1/dcget.1
Manifying blib/man1/dcshare.1
lib/Net/DirectConnect/filelist.pm:24: Unknown command paragraph "=tofix $0 =~ m|^(.+)[/\\].+?$|; #v0
our $root_path ||= $1 . '/' if $1;
$root_path =~ s|\\|/|g;
warn "rp[$root_path]";"
lib/Net/DirectConnect/filelist.pm:223: Unknown command paragraph "=cu $self->{share_full}{ $f->{'tth'} } = $f->{'full_local'}, $self->{share_tth}{ $f->{'full_local'} } = $f->{'tth'},
$self->{share_tth}{ $f->{'file'} } = $f->{'tth'},
if $f->{'tth'};
$self->{share_full}{ $f->{'file'} } ||= $f->{'full_local'};
=cut
#$self->log 'set share', "[$f->{file}], [$f->{tth}] = [$self->{share_full}{ $f->{tth} }],[$self->{share_full}{ $f->{file} }]";
#$self->log Dumper $self->{share_full};
}
};
my $scandir;
$scandir = sub (@) {
for my $dir (@_) {
#$self->log( 'scandir', $dir, 'charset', $self->{charset_fs} );
#$self->log( 'warn', 'stopscan', $stopscan),
last if $stopscan;
$dir =~ tr{\\}{/};
$dir =~ s{/+$}{};
opendir( my $dh, $dir ) or ( $self->log( 'err', "can't opendir [$dir]: $!\n" ), next );
#$self->log( 'dev','sd', __LINE__,$dh);
#@dots =
( my $dirname = $dir );
$dirname =
#Encode::encode 'utf8',
Encode::decode $self->{charset_fs}, $dirname, Encode::FB_WARN if $self->{charset_fs};
#$self->log( 'dev','sd', __LINE__,$dh);
next if skip( $dirname, $self->{skip_dir} ) or ( $self->{skip_symlink} and -l $dirname );
unless ($level) {
for ( split '/', $dirname ) {
psmisc::file_append( $self->{files}, "\t" x $level, qq{<Directory Name="$_">\n} ), ++$level, if length $_;
}
} else {
$dirname =~
#W s/^\w://;
#$dirname =~
s{.*/}{};
psmisc::file_append( $self->{files}, "\t" x $level, qq{<Directory Name="$dirname">\n} ), ++$level, ++$levelreal,
if length $dirname;
}
#$self->log( 'dev','sd', __LINE__,$dh);
#Net::DirectConnect::
psmisc::schedule( [ 10, 10 ], our $my_every_10sec_sub__ ||= sub { $printinfo->() } );
#$self->log( 'readdir', );
FILE: for my $file ( readdir($dh) ) {
#$self->log( 'scanfile', $file, );
#$self->log( 'warn', 'stopscan', $stopscan),
last if $stopscan;
next if $file =~ /^\.\.?$/;
#$file = Encode::encode( 'utf8', Encode::decode( $self->{charset_fs}, $file ) ) if $self->{charset_fs};
my $f = { path => $dir, path_local => $dir, file => $file, file_local => $file, full_local => "$dir/$file", };
#$f->{full_local} = "$f->{path_local}/$f->{file_local}";
#print("d $f->{full}:\n"),
$f->{dir} = -d $f->{full_local};
#filelist_line($f),
if ( $f->{dir} ) {
#next FILE if skip ($f->{file}, $self->{skip_dir});
$scandir->( $f->{full_local} );
next;
}
$f->{size} = -s $f->{full_local} if -f $f->{full_local};
next if $f->{size} < $self->{file_min};
$f->{file} = #Encode::encode 'utf8',
Encode::decode $self->{charset_fs}, $f->{file}, Encode::FB_WARN if $self->{charset_fs};
$f->{path} = #Encode::encode 'utf8',
Encode::decode $self->{charset_fs}, $f->{path}, Encode::FB_WARN if $self->{charset_fs};
next FILE if skip( $f->{file}, $self->{skip_file} ) or ( $self->{skip_symlink} and -l $f->{file} );
#$self->log( 'encfile', $f->{file} , "chs:$self->{charset_fs}");
$f->{full} = "$f->{path}/$f->{file}";
$f->{time} = int( $^T - 86400 * -M $f->{full_local} ); #time() -
#$self->log 'timed', $f->{time}, psmisc::human('date_time', $f->{time}), -M $f->{full_local}, int (86400 * -M $f->{full_local}), $^T;
#'res=',
#join "\n", grep { !/^\.\.?/ and
#/^\./ && -f "$dir/$_" }
#print " ", $file;
#todo - select not all cols
# $self->log('preselect', $self->{no_sql});
unless ( $self->{no_sql} ) {
#$self->log('select go',);# Dumper $f);
my $indb =
$self->{db}->line( "SELECT * FROM ${tq}filelist${tq} WHERE"
. " ${rq}path${rq}="
. $self->{db}->quote( $f->{path} )
. " AND ${rq}file${rq}="
. $self->{db}->quote( $f->{file} )
. " AND ${rq}size${rq}="
. $self->{db}->quote( $f->{size} )
. " AND ${rq}time${rq}="
. $self->{db}->quote( $f->{time} )
. " LIMIT 1" );
#$self->log('select', Dumper $indb);
#$self->log ('dev', 'already scaned', $indb->{size}),
$filelist_line->( { %$f, %$indb } ), next, if $indb->{size} ~~ $f->{size};
#$db->select('filelist', {path=>$f->{path},file=>$f->{file}, });
#$self->log Dumper ;
#print "\n";
#my $tth;
if ( $f->{size} > $self->{tth_cheat} ) {
my $indb =
$self->{db}->line( "SELECT * FROM ${tq}filelist${tq} WHERE "
. "${rq}file${rq}="
. $self->{db}->quote( $f->{file} )
. " AND ${rq}size${rq}="
. $self->{db}->quote( $f->{size} )
. ( $self->{tth_cheat_no_date} ? () : " AND ${rq}time${rq}=" . $self->{db}->quote( $f->{time} ) )
. " LIMIT 1" );
#$self->log 'sel', Dumper $indb;
if ( $indb->{tth} ) {
$self->log( 'dev', "already summed", %$f, ' as ', %$indb );
$f->{$_} ||= $indb->{$_} for keys %$indb;
#filelist_line($f);
#next;
}
}
}
if ( !$notth and !$f->{tth} ) {
#$self->log 'calc', $f->{full}, "notth=[$notth]";
my $time = time();
$f->{tth} = Net::DirectConnect::TigerHash::tthfile( $f->{full_local} );
my $per = time - $time;
$self->log(
'time', $f->{full}, psmisc::human( 'size', $f->{size} ),
'per', psmisc::human( 'time_period', $per ),
'speed ps', psmisc::human( 'size', $f->{size} / ( $per or 1 ) ),
'total', psmisc::human( 'size', $sharesize )
)
if
#$f->{size} > 100_000 or
$per > 1;
}
#$f->{tth} = $f->{size} > 1_000_000 ? 'bigtth' : tthfile( $f->{full} ); #if -f $full;
#print Dumper $self->{share_full};
#next;
#print ' ', tthfile($full) if -f $full ; #and -s $full < 1_000_000;
#print ' ', $f->{tth};
#print ' ', $f->{size}; #if -f $f->{full};
#print join ':',-M $f->{full}, $^T + 86400 * -M $f->{full},$f->{time};
#print "\n";
$filelist_line->($f);
$self->{db}->insert_hash( 'filelist', $f ) if !$self->{no_sql} and $f->{tth};
}
--$level;
--$levelreal;
psmisc::file_append $self->{files}, "\t" x $level, qq{</Directory>\n}; #<!-- $levelreal $level -->
closedir $dh;
}
if ( $levelreal < 0 ) {
#psmisc::file_append $self->{files}, "<!-- backing to root $levelreal $level -->\n";
psmisc::file_append $self->{files}, "\t" x $level, qq{</Directory>\n} while --$level >= 0;
$levelreal = $level = 0;
}
#$level
};
#else {
$self->log(
'info', "making filelist $self->{files} from",
@_, @{ $self->{'share'} || [] },
'EXISTS=',
grep { -d } @_,
@{ $self->{'share'} || [] },
);
#$self->{db}->do('ANALYZE filelist') unless $self->{no_sql};
$self->{db}->analyze('filelist') unless $self->{no_sql};
local %_;
$scandir->($_) for ( grep { !$_{$_}++ and -d } @_, @{ $self->{'share'} || [] }, );
#undef $SIG{INT};
#undef $SIG{INFO};
psmisc::file_append $self->{files}, qq{</FileListing>};
psmisc::file_append $self->{files};
$self->{db}->flush_insert() unless $self->{no_sql};
local $_;
if (
psmisc::use_try 'IO::Compress::Bzip2'
and ($_ = !IO::Compress::Bzip2::bzip2( $self->{files} => $self->{files} . '.bz2' )
or $self->log( "bzip2 failed: ", $IO::Compress::Bzip2::Bzip2Error ) and 0 )
)
{
#$self->log('bzip',$self->{files} => $self->{files} . '.bz2');
() = $IO::Compress::Bzip2::Bzip2Error; #no warning
} else {
$self->log( 'dev', 'using system bzip2', $_, $!, ':', `bzip2 --force --keep "$self->{files}"` );
}
#unless $interrupted;
#$self->{share_full}{ $self->{files} . '.bz2' } = $self->{files} . '.bz2'; $self->{share_full}{ $self->{files} } = $self->{files};
#}
psmisc::unlock('sharescan');
$printinfo->();
#$SIG{INT} = $SIG{KILL} = undef;
return ( $sharesize, $sharefiles );
};
$self->{share_add_file} //= sub {
my $self = shift if ref $_[0];
my ( $full_local, $tth, $file ) = @_;
$full_local =~ m{([^/\\]+)$} unless $file;
$file //= $1; # unless length $file;
#$full_local = Encode::encode $self->{charset_fs}, Encode::decode 'utf8', $full_local;
$self->{share_full}{$tth} = $full_local, $self->{share_tth}{$full_local} = $tth, $self->{share_tth}{$file} = $tth, if $tth;
$self->{share_full}{$file} ||= $full_local if $file;
#$self->share_changed();
};
$self->{share_changed} //= sub {
my $self = shift if ref $_[0];
#$self->log('dev', "share_changed");
if ( $self->{'status'} eq 'connected' ) {
if ( $self->{adc} ) { $self->cmd( 'I', 'INF', undef, 'SS', 'SF' ); }
else { $self->cmd('MyINFO'); }
}
};
$self->{filelist_load} //= sub { #{'cmd'}
my $self = shift if ref $_[0];
$self->log( 'err', 'forced db upgrade on load' ), $self->{db}->upgrade() if $self->{upgrade_force};"
lib/Net/DirectConnect/filelist.pm:434: Unknown command paragraph "=old if ( $config{filelist} and open my $f, '<', $config{filelist} ) {
$self->log "loading filelist..";
local $/ = '<';
while (<$f>) {
if ( my ( $file, $time, $tiger ) = /^File Name="([^"]+)" TimeStamp="(\d+)" Root="([^"]+)"/i ) {
#$self->{'share_tth'}{ $params->{TR} }
$file =~ tr{\\}{/};
$self->{share_full}{$tiger} = $file;
$self->{share_tth}{$file} = $tiger;
}
#<File Name="c:\distr\neo\tmp" TimeStamp="1242907656" Root="3OPSFH2JD2UPBV4KIZAPLMP65DSTMNZRTJCYR4A"/>
}
close $f;
$self->log ".done:", ( scalar keys %{ $self->{share_full} } ), "\n";
}
=cut
#$self->log( "filelist_load try", $global{shareloaded}, -s $self->{files}, ); #ref $_[0]
return
if !$self->{files}
or $Net::DirectConnect::global{shareloaded} == -s $self->{files}
or
( $Net::DirectConnect::global{shareloaded} and !psmisc::lock( 'sharescan', readonly => 1, timeout => 0, old => 86400 ) )
or !open my $f, '<:encoding(utf8)', $self->{files};
my ( $sharesize, $sharefiles );
#$self->log( 'info', "loading filelist", -s $f );
$Net::DirectConnect::global{shareloaded} = -s $f;
local $/ = '<';
%{ $self->{share_full} } = %{ $self->{share_tth} } = ();
my $dir;
while (<$f>) {
#<Directory Name="distr">
#<File Name="3470_2.x.rar" Size="18824575" TTH="CL3SVS5UWWSAFGKCQZTMGDD355WUV2QVLNNADIA"/>
if ( my ( $file, $size, $tth, $ts ) = m{^File Name="([^"]+)" Size="(\d+)" TTH="([^"]+)"}i ) {
my $full_local = ( my $full = "$dir/$file" );
#$self->log 'loaded', $dir, $file , $full;
#$full_local = Encode::encode $self->{charset_fs}, $full if $self->{charset_fs};
$full_local = Encode::encode $self->{charset_fs},
#Encode::decode 'utf8',
$full_local, Encode::FB_WARN;
$self->share_add_file( $full_local, $tth, $file );
++$sharefiles;
$sharesize += $size;
#$self->{'share_tth'}{ $params->{TR} }
#$file =~ tr{\\}{/};
} elsif ( my ($curdir) = m{^Directory Name="([^"]+)">}i ) {
$dir .= ( ( !length $dir and $^O ~~ [ 'MSWin32', 'cygwin' ] ) ? () : '/' ) . $curdir;
#$self->log 'now in', $dir;
#$self->{files}
} elsif (m{^/Directory>}i) {
$dir =~ s{(?:^|/)[^/]+$}{};
#$self->log 'now ba', $dir;
}
}
$self->{share_full}{ $self->{files} . '.bz2' } = $self->{files} . '.bz2';
$self->{share_full}{ $self->{files} } = $self->{files};
# $self->{'INF'}{'SS'} = $self->{'sharesize'} = $sharesize;
# $self->{'INF'}{'SF'} = $sharefiles;
$self->log(
'info',
"loaded filelist size",
$Net::DirectConnect::global{shareloaded},
' : files=', $sharefiles, 'bytes=',
psmisc::human( 'size', $sharesize ),
scalar keys %{ $self->{share_full} },
"bzsize=", -s $self->{files} . '.bz2',
);
psmisc::unlock('sharescan');
#$_[0]->( $sharesize, $sharefiles ) if ref $_[0] ~~ 'CODE';
#( $self->{share_size} , $self->{share_files} ) = ( $sharesize, $sharefiles );
$sharefiles *= $self->{sharefiles_mul} if $self->{sharefiles_mul};
$sharefiles += $self->{sharefiles_add};
$sharesize *= $self->{sharesize_mul} if $self->{sharesize_mul};
$sharesize += $self->{sharesize_add};
$self->{sharefiles} = $self->{INF}{SF} = $sharefiles, $self->{INF}{SS} = $self->{sharesize} = $sharesize, if $sharesize;
$self->share_changed();
return ( $sharesize, $sharefiles );
};
$self->{search_stat_update} = sub {
my $self = shift if ref $_[0];
my $tth = shift or return;
my $field = shift || 'hit';
my $updated =
$self->{db}->do( "UPDATE ${tq}filelist${tq} SET ${rq}$field${rq}=${rq}$field${rq}+1 WHERE "
. "${rq}tth${rq}="
. $self->{db}->quote($tth)
. ( $self->{db}{no_update_limit} ? () : " LIMIT 1" ) );
$self->log( 'dev', "counter $field increased[$updated] on [$tth]" ) if $updated;
};
$self->{handler_int}{Search} //= sub {
my $self = shift if ref $_[0];
#$self->log ( 'dev', 'Search stat', Dumper @_) ;
#$self->log ( 'dev', 'Search stat', Dumper $_[1]{tth}) ;
$self->search_stat_update( $_[1]{tth}, 'sch' );
};
$self->{handler_int}{SCH} //= sub {
my $self = shift if ref $_[0];
#$self->log ( 'dev', 'SCH stat', Dumper @_) ;
$self->search_stat_update( $_[-1]{TR}, 'sch' );
};
$self->{'periodic'}{ __FILE__ . __LINE__ } = sub {
my $self = shift if ref $_[0];
#$self->log ( 'periodic in filelist', $self->{filelist_scan}, caller );
psmisc::schedule(
#[10, $self->{filelist_scan}],
$self->{filelist_scan},
our $sharescan_sub__ ||= sub {
my $self = shift;
$self->log(
'info',
'filelist actual age seconds:',
( time - $^T + 86400 * -M $self->{files} ),
'<', $self->{filelist_scan}
);
return
if -e $self->{files}
and -s $self->{files} > 200
and $self->{filelist_scan} > time - $^T + 86400 * -M $self->{files};
#$self->log( 'starter==','$0=',$0, $INC{'Net/DirectConnect/filelist.pm'}, $^X, 'share=', @{ $self->{'share'} } );
#$0 !~ m{(.*\W)?share.pl$}
$self->{'filelist_builder'} ? psmisc::start $self->{'filelist_builder'}, @{ $self->{'share'} } : psmisc::start $^X,
$INC{'Net/DirectConnect/filelist.pm'}, @{ $self->{'share'} };
#: psmisc::startme( 'filelist', grep { -d } @ARGV );
},
$self
) if $self->{filelist_scan};
#Net::DirectConnect::
psmisc::schedule(
#10, #dev! 300!
$self->{filelist_reload},
#our $filelist_load_sub__ ||=
sub {
my $self = shift;
#psmisc::startme( 'filelist', grep { -d } @ARGV );
#my($sharesize,$sharefiles) =
$self->filelist_load(
#sub {
#my ( $sharesize, $sharefiles ) = @_;
#$dc->{INF}{SS} = $sharesize, $dc->{INF}{SF} = $sharefiles, $dc->{sharesize} = $sharesize, if $sharesize;
##todo! change INF cmd or myinfo
#}
);
},
$self
) if $self->{filelist_scan};
},
#psmisc::startme( 'filelist', grep { -d } @ARGV ) if !-e $config{files} or !-e $config{files}.'.bz2';
$self->{handler_int}{file_recieved} = sub {
my $self = shift if ref $_[0];
my ( $full, $filename ) = @_;
#$self->{'file_recv_tth'} =
my ($tth) = $filename =~ m{^TTH/(\w+)};"
lib/Net/DirectConnect/filelist.pm:587: Unknown command paragraph "=z return unless $tth;
$self->{share_full}{$tth} = $as;
my ($name) = $as =~ m{^([^/\\]+)$};
return unless $name;"
lib/Net/DirectConnect.pm:892: Unknown command paragraph "=hm for ( keys %{ $self->{sockets} } ) {
#$self->log( 'dev', 'connected chk' , $self->{sockets}{$_}{socket}, $self->{sockets}{$_}{socket}->connected());
#$self->log( 'dev', 'connected call' ),
$self->{sockets}{$_}->connected(), ++$ret,
if $self->{sockets}{$_}{status} eq 'connecting_tcp' and $self->{sockets}{$_}{socket}->connected();
}
=cut"
lib/Net/DirectConnect.pm:931: Unknown command paragraph "=no sub wait { #$self->{'wait'} ||= sub {
my $self = shift;
my ( $waits, $wait_once ) = @_;
$waits ||= $self->{'waits'};
#$wait_once ||= $self->{'wait_once'};
local $_;
my $ret;
#$self->log( 'dev', "start wait", $waits, caller, '::::', caller 1, );
while ( --$waits > 0 and !$ret ) {
#$ret += $self->select($wait_once);
last unless $self->active();
$ret += $self->select(undef, 1);
#$self->log( 'dev', "wait", $waits, $ret);
#sleep 0.1 if !$ret;
}
#$ret += $self->work($wait_once) while --$waits > 0 and !$ret;
return $ret;
}
=cut"
lib/Net/DirectConnect.pm:1333: Unknown command paragraph "=no unless ($self->{send_can}) {
$self->{send_buffer_raw} = \@_;
return 0;
}
if ($self->{send_buffer_raw}) {
unshift @_, @{$self->{send_buffer_raw}};
$self->{send_buffer_raw} = undef;
}
=cut
#return unless @_;
}"
lib/Net/DirectConnect.pm:1835: Unknown command paragraph "=no local @_ = socket_addr $self->{'socket'};
#eval { @_ = unpack_sockaddr_in( getpeername( $self->{'socket'} ) || return ) };
#return unless $_[1];
#return unless $_[1] = inet_ntoa( $_[1] );
$self->{'port'} = $_[0] if $_[0]; #;and !$self->{'incoming'};
$self->{'hostip'} = $_[1], $self->{'host'} ||= $self->{'hostip'}
if $_[1];
return $self->{'hostip'};
=cut
}"
lib/Net/DirectConnect.pm:1866: Unknown command paragraph "=no eval { @_ = unpack_sockaddr_in( getsockname( $self->{'socket'} ) || return ); };
$self->log( 'dcerr', "cant get my ip [$@]", Dumper \@_ ) if $@;
#$self->log('dcerr', "cant get my ip [0.0.0.0:$_[0]]"),
return if $_[1] eq "\0\0\0\0";
#$self->log('dev', "1my ip", Dumper \@_);
#return unless $_[1];
return unless $_[1] and $_[1] = inet_ntoa( $_[1] );
#$self->log('dev', "2my ip", Dumper \@_);
#return if $_[1] eq '0.0.0.0';
#$self->{'log'}->('dev', "MYIP($self->{'myip'}) [$self->{'number'}] SOCKNAME $_[0],$_[1];");
return $self->{'myip'} ||= $_[1];
=cut"
Manifying blib/man3/Net::DirectConnect::filelist.3
Manifying blib/man3/Net::DirectConnect.3
[ERROR] [Sat Nov 12 09:28:22 2011] MAKE TEST failed: PERL_DL_NONLAZY=1 /home/cpan/pit/thr/perl-5.8.9/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
Warning: Use of "shift" without parentheses is ambiguous at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 30.
Scalar found where operator expected at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 30, near "// $_"
(Missing operator before $_?)
"my" variable $host masks earlier declaration in same scope at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 764.
"my" variable $tth masks earlier declaration in same scope at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 1118.
"my" variable $tth masks earlier declaration in same scope at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 1130.
"my" variable $file masks earlier declaration in same scope at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 1147.
String found where operator expected at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 1407, near "$full = $self->{'"
(Might be a runaway multi-line '' string starting on line 1405)
(Missing semicolon on previous line?)
# Failed test 'use Net::DirectConnect;'
# at t/Net-DirectConnect.t line 9.
# Tried to use 'Net::DirectConnect'.
# Error: Bad name after download_to' at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect.pm line 1407.
# Compilation failed in require at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.
Backslash found where operator expected at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 80, near "?)(\s+Pk=.+)?\"
(Missing operator before \?)
Unrecognized escape \s passed through at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 80.
Unrecognized escape \s passed through at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 80.
Scalar found where operator expected at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 84, near "#$_[0] =~ /^(.+?)(\s+Pk=.+)?\s*$/"
(Might be a runaway multi-line ** string starting on line 80)
(Missing operator before $/?)
Bareword found where operator expected at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 84, near "$/is"
(Missing operator before is?)
# Failed test 'use Net::DirectConnect::clihub;'
# at t/Net-DirectConnect.t line 11.
# Tried to use 'Net::DirectConnect::clihub'.
# Error: Global symbol "$lock" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 45.
# syntax error at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 80, near "(."
# Global symbol "$lock" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 80.
# Global symbol "$self" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 89.
# Global symbol "$self" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 92.
# Global symbol "$self" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 92.
# Global symbol "$self" requires explicit package name at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 92.
# Unmatched right curly bracket at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 93, at end of line
# syntax error at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clicli.pm line 93, near "}"
# Compilation failed in require at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clihub.pm line 10.
# BEGIN failed--compilation aborted at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/clihub.pm line 10.
# Compilation failed in require at (eval 10) line 2.
# BEGIN failed--compilation aborted at (eval 10) line 2.
# Failed test 'use Net::DirectConnect::adc;'
# at t/Net-DirectConnect.t line 13.
# Tried to use 'Net::DirectConnect::adc'.
# Error: syntax error at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/http.pm line 48, near "^:"
# Compilation failed in require at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/adc.pm line 13.
# BEGIN failed--compilation aborted at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/adc.pm line 13.
# Compilation failed in require at (eval 12) line 2.
# BEGIN failed--compilation aborted at (eval 12) line 2.
# Failed test 'use Net::DirectConnect::filelist;'
# at t/Net-DirectConnect.t line 14.
# Tried to use 'Net::DirectConnect::filelist'.
# Error: Perl v5.10.0 required--this is only v5.8.9, stopped at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/filelist.pm line 12.
# BEGIN failed--compilation aborted at /home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib/Net/DirectConnect/filelist.pm line 12.
# Compilation failed in require at (eval 13) line 2.
# BEGIN failed--compilation aborted at (eval 13) line 2.
# Looks like you failed 4 tests of 9.
t/Net-DirectConnect.t ..
Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/9 subtests
Test Summary Report
-------------------
t/Net-DirectConnect.t (Wstat: 1024 Tests: 9 Failed: 4)
Failed tests: 1, 3, 5-6
Non-zero exit status: 4
Files=1, Tests=9, 0 wallclock secs ( 0.01 usr 0.01 sys + 0.06 cusr 0.01 csys = 0.09 CPU)
Result: FAIL
Failed 1/1 test programs. 4/9 subtests failed.
make: *** [test_dynamic] Error 4
[MSG] [Sat Nov 12 09:28:22 2011] DEFAULT 'proceed_on_test_failure' HANDLER RETURNING 'sub return value'
******************************** NOTE ********************************
The comments above are created mechanically, possibly without manual
checking by the sender. As there are many people performing automatic
tests on each upload to CPAN, it is likely that you will receive
identical messages about the same problem.
If you believe that the message is mistaken, please reply to the first
one with correction and/or additional informations, and do not take
it personally. We appreciate your patience. :)
**********************************************************************
Additional comments:
This report was machine-generated by CPANPLUS::Dist::YACSmoke 0.66.
Powered by minismokebox version 0.54
------------------------------
ENVIRONMENT AND OTHER CONTEXT
------------------------------
Environment variables:
AUTOMATED_TESTING = 1
LANG = en_US
LC_COLLATE = C
PATH = /usr/local/bin:/usr/bin:/bin:/usr/games:/usr/lib64/java/bin:/usr/lib64/qt/bin:/usr/share/texmf/bin:.
PERL5LIB = :/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/arch
PERL5_CPANPLUS_IS_RUNNING = 17456
PERL5_CPANPLUS_IS_VERSION = 0.9112
PERL5_MINISMOKEBOX = 0.54
PERL5_YACSMOKE_BASE = /home/cpan/pit/thr/conf/perl-5.8.9
PERL_EXTUTILS_AUTOINSTALL = --defaultdeps
PERL_MM_USE_DEFAULT = 1
SHELL = /bin/bash
TERM = screen
Perl special variables (and OS-specific diagnostics, for MSWin32):
Perl: $^X = /home/cpan/pit/thr/perl-5.8.9/bin/perl
UID: $< = 1001
EUID: $> = 1001
GID: $( = 100 100
EGID: $) = 100 100
-------------------------------
--
Summary of my perl5 (revision 5 version 8 subversion 9) configuration:
Platform:
osname=linux, osvers=2.6.33.4, archname=x86_64-linux-thread-multi
uname='linux slack64 2.6.33.4 #3 smp wed may 12 23:13:09 cdt 2010 x86_64 intel(r) xeon(r) cpu e5520 @ 2.27ghz genuineintel gnulinux '
config_args='-des -Dprefix=/home/cpan/pit/thr/perl-5.8.9 -Dusethreads'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=define use64bitall=define uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='4.4.4', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.11.1'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
THREADS_HAVE_PIDS USE_64_BIT_ALL USE_64_BIT_INT
USE_FAST_STDIO USE_ITHREADS USE_LARGE_FILES
USE_PERLIO USE_REENTRANT_API
Built under linux
Compiled at Feb 15 2011 15:08:40
%ENV:
PERL5LIB=":/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/arch:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib:/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/arch"
PERL5_CPANPLUS_IS_RUNNING="17456"
PERL5_CPANPLUS_IS_VERSION="0.9112"
PERL5_MINISMOKEBOX="0.54"
PERL5_YACSMOKE_BASE="/home/cpan/pit/thr/conf/perl-5.8.9"
PERL_EXTUTILS_AUTOINSTALL="--defaultdeps"
PERL_MM_USE_DEFAULT="1"
@INC:
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBI-1.616/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/DBD-SQLite-1.33/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Socket6-0.23/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-INET6-2.67/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-SSLeay-1.42/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/IO-Socket-SSL-1.49/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/MIME-Base32-1.02/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-TigerHash-0.06/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Sys-Sendfile-0.11/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/lib-abs-0.92/blib/arch
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/lib
/home/cpan/pit/thr/conf/perl-5.8.9/.cpanplus/5.8.9/build/Net-DirectConnect-0.12/blib/arch
/home/cpan/pit/thr/perl-5.8.9/lib/5.8.9/x86_64-linux-thread-multi
/home/cpan/pit/thr/perl-5.8.9/lib/5.8.9
/home/cpan/pit/thr/perl-5.8.9/lib/site_perl/5.8.9/x86_64-linux-thread-multi
/home/cpan/pit/thr/perl-5.8.9/lib/site_perl/5.8.9
.