$message .= REPORT_TESTS_SKIPPED->();
} elsif( $grade eq GRADE_NA) {
+ my $capture = ( $status && defined $status->{capture} ? $status->{capture} : $buffer );
+
### add the reason for the NA to the buffer
- $buffer = join $/, $buffer, map {
+ $capture = join $/, $capture, map {
'[' . $_->tag . '] [' . $_->when . '] ' .
$_->message } ( CPANPLUS::Error->stack )[-1];
- my $capture = ( $status && defined $status->{capture} ? $status->{capture} : $buffer );
### the bit where we inform what went wrong
$message .= REPORT_MESSAGE_FAIL_HEADER->( $stage, $capture );
### don't need it anymore ###
unlink $out;
+ my ($tot,$prce,$prc,$idx);
+
+ $args->{verbose}
+ and local $|=1,
+ $tot = scalar(split /\n/, $cont),
+ ($prce, $prc, $idx) = (int $tot / 25, 0, 0);
+
+ $args->{verbose}
+ and print "\t0%";
+
for ( split /\n/, $cont ) {
my($id, $name, $email) = m/^alias \s+
(\S+) \s+
cpanid => $id, #authors CPAN ID
) or error( loc("Could not add author '%1'", $name ) );
+ $args->{verbose}
+ and (
+ $idx++,
+
+ ($idx==$prce
+ and ($prc+=4,$idx=0,print ".")),
+
+ (($prc % 10)
+ or $idx
+ or print $prc,'%')
+ );
+
}
+ $args->{verbose}
+ and print "\n";
+
+
return $self->_atree;
} #__create_author_tree
### don't need it anymore ###
unlink $out;
- my($past_header, $count);
- for ( split /\n/, $content ) {
+ my($past_header, $count, $tot, $prce, $prc, $idx);
+
+ $args->{verbose}
+ and local $|=1,
+ $tot = scalar(split /\n/, $content),
+ ($prce, $prc, $idx) = (int $tot / 25, 0, 0);
+ $args->{verbose}
+ and print "\t0%";
+
+ for ( split /\n/, $content ) {
### quick hack to read past the header of the file ###
### this is still rather evil... fix some time - Kane
if( m|^\s*$| ) {
mtime => '',
) or error( loc( "Could not add module '%1'", $data[0] ) );
+ $args->{verbose}
+ and (
+ $idx++,
+
+ ($idx==$prce
+ and ($prc+=4,$idx=0,print ".")),
+
+ (($prc % 10)
+ or $idx
+ or print $prc,'%')
+ );
+
} #for
+ $args->{verbose}
+ and print "\n";
+
return $self->_mtree;
} #_create_mod_tree
### use this regex to make sure dslips with ';' in them don't cause
### parser errors
my ($ds_one, $ds_two) = ($in =~ m|.+}\s+
- (\$(?:CPAN::Modulelist::)?cols.*?)
- (\$(?:CPAN::Modulelist::)?data.*)
- |sx);
+ (\$(?:CPAN::Modulelist::)?cols.*?)
+ (\$(?:CPAN::Modulelist::)?data.*)
+ |sx);
### eval them into existence ###
### still not too fond of this solution - kane ###