CPAN-Reporter

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Bug fix: successful PL's where prereqs happen not to be satisfied
      were mistakenly being marked as 'DISCARD' for the PL phase.  Fixed so
      that PL's that PASS will stay that way regardless of prerequisites.
      (This does not prevent a later make or test failure from being
      downgraded,

    - Bug fix: skipfiles patterns should match case-insensitive (Cantrell);
      also, documented lack of starting anchor

    - Bug fix: command_timeout option would not accept zero as valid; now
      zero is a valid option and disables command_timeout

    - more minor boilerplate tweaks

1.10 Mon Feb 25 10:07:28 EST 2008

    I hereby dub 1.10 as the "I hate Windows" release

    - Bug fix (sort of): On Win32, child processes were not timing out.
      Changed from Win32::Process to Win32::Job to fix that.  However,
      discovered that process termination on Win32 can deadlock in some

README  view on Meta::CPAN

    These have been intentionally limited to items that should not cause
    harmful personal information to be revealed -- it does *not* include
    your entire environment. Nevertheless, please do not use CPAN::Reporter
    if you are concerned about the disclosure of this information as part of
    your test report.

    Users wishing to review this information may choose to edit the report
    prior to sending it.

BUGS
    Using command_timeout on Linux may cause problems. See
    <https://rt.cpan.org/Ticket/Display.html?id=62310>

    Please report any bugs or feature using the CPAN Request Tracker. Bugs
    can be submitted through the web interface at
    <http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Reporter>

    When submitting a bug or request, please include a test-file or a patch
    to an existing test-file that illustrates the bug or desired feature.

SEE ALSO

corpus/PL-Hang/Build.PL  view on Meta::CPAN

use strict;
use Module::Build;

# just spin and be interrupted by command_timeout
sleep 30;
die "Fail, fail, fail!";

Module::Build->new( 
    module_name         => 'Bogus::Module',
    dist_author         => 'David A. Golden <dagolden@cpan.org>',
    create_makefile_pl  => 'traditional',
)->create_build_script;

corpus/PL-Hang/Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;

# just spin and be interrupted by command_timeout
sleep 30;
die "Fail, fail, fail!";

WriteMakefile
(
          'PL_FILES' => {},
          'INSTALLDIRS' => 'site',
          'NAME' => 'Bogus::Module',
          'EXE_FILES' => [],
          'VERSION_FROM' => 'lib/Bogus/Module.pm',

corpus/t-Hang/t/01_Bogus.t  view on Meta::CPAN

# Bogus::Pass tests
use strict;

use Test::More;

plan tests =>  2 ;

pass( "Passed this test" );

# just spin and be interrupted by command_timeout
my $now = time; 1 while ( time - $now < 40 );

die "!!! TIMER DIDNT TIMEOUT -- SHOULDNT BE HERE !!!";

pass( "Won't reach this test" );

lib/CPAN/Reporter.pm  view on Meta::CPAN

    my ($command, $timeout) = @_;

    # XXX refactor this!
    # Get configuration options
    if ( -r CPAN::Reporter::Config::_get_config_file() ) {
        my $config_obj = CPAN::Reporter::Config::_open_config_file();
        my $config;
        $config = CPAN::Reporter::Config::_get_config_options( $config_obj )
            if $config_obj;

        $timeout ||= $config->{command_timeout}; # might still be undef
    }

    my ($cmd, $redirect) = _split_redirect($command);

    # Teeing a command loses its exit value so we must wrap the command
    # and print the exit code so we can read it off of output
    my $wrap_code;
    if ( $timeout ) {
        $wrap_code = $^O eq 'MSWin32'
                   ? _timeout_wrapper_win32($cmd, $timeout)

t/57_hang_interrupt.t  view on Meta::CPAN

#--------------------------------------------------------------------------#

require_ok('CPAN::Reporter');

# test send_skipfile
for my $case ( @cases ) {
    $case->{dist} = MockCPANDist->new(
        pretty_id => $case->{pretty_id},
        %mock_dist_options,
    );
    test_fake_config( command_timeout => 3 );
    test_dispatch( 
        $case, 
        will_send => $case->{will_send},
    );
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan