view release on metacpan or  search on metacpan

bin/yada  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
my $fh;
my $name = get_filename(URI->new($url), $skip_existing);
next if $skip_existing && -e $name;
$q->append(
    $url,
    sub {
        my ($self) = @_;
 
        # will die() later
        sysopen($fh, $name, O_CREAT | O_NONBLOCK | O_WRONLY);
        binmode $fh;
 
        $self->setopt(
            encoding            => $encoding // q(),
            maxredirs           => $maxredirs // 5,
            noprogress          => $quiet,
            proxy               => $proxy,
            referer             => $referer,
            tcp_nodelay         => $tcp_nodelay // 0,
            useragent           => $useragent // qq(yada/$VERSION ($Config{archname}; Perl/$Config{version}) @{[ Net::Curl::version() ]}),
            verbose             => $verbose,

t/00-compile.t  view on Meta::CPAN

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;
 
    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};
 
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';
    my @_warnings = <$stderr>;
    waitpid($pid, 0);
    is($?, 0, "$lib loaded ok");
 
    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
        and not eval { +require blib; blib->VERSION('1.01') };
 
    if (@_warnings)
    {
        warn @_warnings;

t/00-compile.t  view on Meta::CPAN

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
close $fh and skip("$file uses -T; not testable with PERL5LIB", 1)
    if grep { $_ eq '-T' } @switches and $ENV{PERL5LIB};
 
my $stderr = IO::Handle->new;
 
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
        $^X, @switches, '-c', $file))
    if $ENV{PERL_COMPILE_TEST_DEBUG};
 
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-c', $file);
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
my @_warnings = <$stderr>;
waitpid($pid, 0);
is($?, 0, "$file compiled ok");
 
shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
    and not eval { +require blib; blib->VERSION('1.01') };
 
# in older perls, -c output is simply the file portion of the path being tested
if (@_warnings = grep { !/\bsyntax OK$/ }
    grep { chomp; $_ ne (File::Spec->splitpath($file))[2] } @_warnings)