Result:
found more than 1016 distributions - search limited to the first 2001 files matching your query ( run in 0.787 )


Apache-ImageMagick
1 match

 view release on metacpan or  search on metacpan

mod_aimproxy.c  view on Meta::CPAN 

111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
n    = c -> pass -> nelts ;
for (i = 0; i < n; i++) 
    {
    if (strncmp (uri, ent[i].proxysrc, ent[i].proxysrclen) == 0)
        {
        /*fprintf(stderr, "found %s -> %s\n" , ent[i].proxysrc, ent[i].proxyhost) ;*/
        found = 1 ;
        break ;
        }
    }
 
if (!found)
    {
    /*fprintf(stderr, "aimproxy not found %s\n" , uri) ;*/
    return DECLINED ; /* is not our request */
    }
proxyhost = ent[i].proxyhost ;
 
args = r -> args ;
path_info = r -> path_info ;
 
/* If the file exists and there are no transformation arguments
   just decline the transaction.  It will be handled as usual. */
/*fprintf(stderr, "uri %s  args %s  path_info %s\n" , uri, args, path_info) ;*/
/*fprintf(stderr, "r -> finfo.st_mode %d\n" , r -> finfo.st_mode) ;*/
if ((!args || !*args) && (!path_info || !*path_info) && r -> finfo.st_mode)  
    return DECLINED ;
 
/* calculate name of cache file */
file = r->filename;

mod_aimproxy.c  view on Meta::CPAN 

143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
if (ext)
    ext++ ;
else
    ext = "" ;
cachefn = ap_pstrcat (r -> pool, md5, ".", ext, NULL) ;
/*fprintf(stderr, "cachefn = %s\n" , cachefn) ;*/
cachedir  = c -> cachedir ;
cachepath = ap_pstrcat (r -> pool, cachedir, "/", cachefn, NULL) ;
 
/*fprintf(stderr, "cachepath = %s\n" , cachepath) ;*/
if (stat (cachepath, &finfo) == 0)
    { /* let apache do the rest if image already exists */
    r -> filename = cachepath ;
    r -> path_info = "" ;
    memcpy (&r -> finfo, &finfo, sizeof (r -> finfo)) ;

mod_aimproxy.c  view on Meta::CPAN 

162
163
164
165
166
167
168
169
170
r->filename = ap_pstrcat(r->pool, "proxy:http://", proxyhost, r-> uri, NULL);
r->handler = "proxy-server";
r->proxyreq = PROXY_PASS;
 
/*fprintf(stderr, "proxy to = %s\n" , r->filename) ;*/
 
return OK;
}

 view all matches for this distribution


Apache-Imager-Resize
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

617
618
619
620
621
622
623
624
625
626
627
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|

ppport.h  view on Meta::CPAN 

1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
warner_nocontext|||vn
warner||5.006000|v
warn|||v
watch|||
whichsig|||
write_to_stderr|||
yyerror|||
yylex|||
yyparse|||
yywarn|||
);

 view all matches for this distribution


Apache-LogFile
1 match

 view release on metacpan or  search on metacpan

LogFile.xs  view on Meta::CPAN 

79
80
81
82
83
84
85
86
87
88
89
 * from %INC so the log is re-opened
 */
static void inc_delete(void *data)
{
    SV *file = (SV*)data;
    /*fprintf(stderr, "removing %s from INC\n", SvPV(file,na));*/
    (void)hv_delete_ent(GvHV(incgv), file, G_DISCARD, FALSE);
    SvREFCNT_dec(file);
}
 
static void mark_for_inc_delete(SV *file)

LogFile.xs  view on Meta::CPAN 

117
118
119
120
121
122
123
124
125
126
    RETVAL->log_fd = piped_log_write_fd(pl);
}
else {
    char *fname = server_root_relative(p, RETVAL->fname);
    if ((RETVAL->log_fd = popenf(p, fname, xfer_flags, xfer_mode)) < 0) {
        fprintf(stderr, "Apache::LogFile: could not open log file %s.\n",
                fname);
        exit(1);
    }
}

 view all matches for this distribution


Apache-Mmap
1 match

 view release on metacpan or  search on metacpan

Mmap.xs  view on Meta::CPAN 

63
64
65
66
67
68
69
70
71
72
73
static void
dump_Mmap( m )
Mmap *m;
{
  if( m != NULL ) 
    fprintf( stderr,
      "Apache::Mmap %x:\naddr: %x\tlen: %d\tcur: %d\noff: %d\tprot: %d\tflags: %d\n",
             m, m->addr, m->len, m->cur, m->off, m->prot, m->flags );
}
 
static int

 view all matches for this distribution


Apache-Perldoc
1 match

 view release on metacpan or  search on metacpan

lib/Apache/Perldoc.pm  view on Meta::CPAN 

36
37
38
39
40
41
42
43
44
45
46
      } else {
        $perldoc ||= "perldoc";
        $pod2html ||= "pod2html";
    }
 
    # Get the path name and throw away errors on stderr
    my $filename = qx( $perldoc -l $pod 2> /dev/null );
 
    if ($?) {
        print
"No such perldoc. Either you don't have that module installed, or the author neglected to provide documentation.";

 view all matches for this distribution


Apache-Pod
2 results

 view release on metacpan or  search on metacpan

lib/Apache/Pod/HTML.pm  view on Meta::CPAN 

126
127
128
129
130
131
132
133
134
135
136
my $file = Apache::Pod::getpodfile( $r );
 
if ( $file ) {
    my $parser = Pod::Simple::HTML->new;
    $parser->no_errata_section(1);
    $parser->complain_stderr(1);
    $parser->output_string( \$body );
    $parser->index( $r->dir_config('INDEX') );
    if ( my $prefix = $r->dir_config('LINKBASE') ) {
        if ( $prefix eq 'LOCAL' ) {
            $prefix = $r->location . '/';

 view all matches for this distribution


Apache-Scoreboard
1 match

 view release on metacpan or  search on metacpan

Scoreboard.xs  view on Meta::CPAN 

163
164
165
166
167
168
169
170
171
172
173
               "running under mod_perl");
#endif
}
 
#ifdef DUMMY_SCOREBOARD
#define MY_WARN fprintf(stderr,
#else
#define MY_WARN ap_log_error(APLOG_MARK, APLOG_ERR, 0, modperl_global_get_server_rec(),
#endif
       
#if 0

Scoreboard.xs  view on Meta::CPAN 

229
230
231
232
233
234
235
236
237
238
239
 
psize = sizeof(process_score) * image->server_limit;
msize = sizeof(worker_score)  * image->thread_limit;
ssize = msize * image->server_limit;
tsize = psize + ssize + sizeof(global_score) + sizeof(buf);
/* fprintf(stderr, "sizes %d, %d, %d, %d, %d\n",
   psize, ssize, sizeof(global_score) , sizeof(buf), tsize); */
              
pack16(ptr, psize);
ptr += SIZE16;
pack16(ptr, ssize);

Scoreboard.xs  view on Meta::CPAN 

425
426
427
428
429
430
431
432
433
434
435
sb = image->sb;
for (i = 0; i < image->server_limit; i++) {
    if (!(sb->parent[i].pid)) {
        break;
    }
    /* fprintf(stderr, "pids: server %d: pid %d\n",
       i, (int)(sb->parent[i].pid)); */
    av_push(av, newSViv(sb->parent[i].pid));
}
     
RETVAL = newRV_noinc((SV*)av);

Scoreboard.xs  view on Meta::CPAN 

475
476
477
478
479
480
481
482
483
484
485
CODE:
sb = image->sb;
 
for (i = 0; i < image->thread_limit; ++i) {
    /* fprintf(stderr, "thread_num: server %d, thread %d pid %d\n",
       i, sb->servers[parent_idx][i].thread_num,
       (int)(sb->parent[parent_idx].pid)); */
     
    av_push(av, newSViv(sb->servers[parent_idx][i].thread_num));
}

 view all matches for this distribution


Apache-SdnFw
1 match

 view release on metacpan or  search on metacpan

lib/Apache/SdnFw/lib/Core.pm  view on Meta::CPAN 

1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
# setup some convience variables so we have to type less
$s->{uof} = "$s->{ubase}/$s->{object}/$s->{function}";
$s->{uo} = "$s->{ubase}/$s->{object}";
 
if ($s->{o}{log_stderr}) {
        my $dd = Data::Dumper->new([\%{$s->{in}}],[qw(data)]);
        $dd->Indent(0);
        $s->db_insert('object_debug',{
                o => $s->{object},
                f => $s->{function},

 view all matches for this distribution


Apache-SubProcess
1 match

 view release on metacpan or  search on metacpan

SubProcess.xs  view on Meta::CPAN 

54
55
56
57
58
59
60
61
62
63
64
PUSHMARK(sp); 
XPUSHs(perl_bless_request_rec(info->r));
PUTBACK; 
count = perl_call_sv(info->cv, G_EVAL | G_SCALAR); 
if(perl_eval_ok(info->r->server) != OK) {
    fprintf(stderr, "FAIL: %s\n", SvPV(ERRSV,na));
}
/*
SPAGAIN; 
 
PUTBACK;

SubProcess.xs  view on Meta::CPAN 

111
112
113
114
115
116
117
118
119
120
121
PREINIT:
char **env;
 
CODE:
env = ap_create_environment(r->pool, r->subprocess_env);  
ap_error_log2stderr(r->server);  
ap_cleanup_for_exec();  
RETVAL = ap_call_exec(r, (child_info *)r->request_config, pgm, env, 0);  
 
ap_log_error(APLOG_MARK, APLOG_ERR, NULL,
"Apache::SubProcess exec of %s failed", pgm);

 view all matches for this distribution


Apache-Tika-Async
2 results

 view release on metacpan or  search on metacpan

xt/99-compile.t  view on Meta::CPAN 

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
my $last_version = undef;
 
sub check {
    return if (! m{(\.pm|\.pl) \z}xmsi);
 
    my ($stdout, $stderr, $exit) = capture(sub {
        system( $^X, '-Mblib', '-c', $_ );
    });
 
    s!\s*\z!!
        for ($stdout, $stderr);
 
    if( $exit ) {
        diag $stderr;
        diag "Exit code: ", $exit;
        fail($_);
    } elsif( $stderr ne "$_ syntax OK") {
        diag $stderr;
        fail($_);
    } else {
        pass($_);
    };
}

 view all matches for this distribution


Apache2-AuthenNTLM
6 results

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

129
130
131
132
133
134
135
136
137
138
139
    more verbose debugging output (decoded flags)
 
0.14  26. Feb 2002
 
  - fixed a problem that page content of Perl sometimes goes to the
    stderr instead of stdout
 
0.13  9. Jan 2002
 
   - return mapped username, when second request on same connection, 
     instead of unmapped

 view all matches for this distribution


Apache2-Banner
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

740
741
742
743
744
745
746
747
748
749
750
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|

ppport.h  view on Meta::CPAN 

2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v

 view all matches for this distribution


Apache2-Filter-Minifier-CSS
1 match

 view release on metacpan or  search on metacpan

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

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
my @warnings;
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') };

 view all matches for this distribution


Apache2-Filter-Minifier-JavaScript
1 match

 view release on metacpan or  search on metacpan

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

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
my @warnings;
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') };

 view all matches for this distribution


Apache2-ModLogConfig
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

740
741
742
743
744
745
746
747
748
749
750
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|

ppport.h  view on Meta::CPAN 

2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v

 view all matches for this distribution


Apache2-ModXml2
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

740
741
742
743
744
745
746
747
748
749
750
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|

ppport.h  view on Meta::CPAN 

2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v

 view all matches for this distribution


Apache2-Pod
2 results

 view release on metacpan or  search on metacpan

lib/Apache2/Pod/HTML.pm  view on Meta::CPAN 

124
125
126
127
128
129
130
131
132
133
134
my $body;
my $file = Apache2::Pod::getpodfile( $r );
my $fun = undef;
my $parser = Apache2::Pod::PodSimpleHTML->new;
$parser->no_errata_section(1);
$parser->complain_stderr(1);
$parser->output_string( \$body );
$parser->index( $r->dir_config('INDEX') );
if ( my $prefix = $r->dir_config('LINKBASE') ) {
        if ( $prefix eq 'LOCAL' ) {
                $prefix = $r->location . '/';

 view all matches for this distribution


Apache2-PodBrowser
1 match

 view release on metacpan or  search on metacpan

lib/Apache2/PodBrowser.pm  view on Meta::CPAN 

352
353
354
355
356
357
358
359
360
361
362
$parser->html_css(_stylesheet($r)) if ($parser->can('html_css'));
$parser->html_header_after_title($parser->html_header_after_title.
                                 _indexlink(INDEX_NORMAL)."\n")
    if ($uplink and $parser->can('html_header_after_title'));
$parser->no_errata_section(1);
$parser->complain_stderr(1);
$parser->output_string( \$body );
$parser->index( $r->dir_config('INDEX') ) if ($parser->can('index'));
if ($parser->can('perldoc_url_prefix')) {
    my $prefix=$r->dir_config('LINKBASE');
    if (defined $prefix) {

 view all matches for this distribution


Apache2-SSI
1 match

 view release on metacpan or  search on metacpan

lib/Apache2/SSI/File/Type.pm  view on Meta::CPAN 

271
272
273
274
275
276
277
278
279
280
281
    return( $type );
}
 
sub default_type { return( shift->_set_get_scalar( 'default_type', @_ ) ); }
 
# Recursively write the magic file to stderr.
# Numbers are written in decimal.
sub dump
{
    my $self  = shift( @_ );
    my $data  = shift( @_ ) || $self->{magic_data};

 view all matches for this distribution


Apache2-ScoreBoardFile
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

740
741
742
743
744
745
746
747
748
749
750
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|

ppport.h  view on Meta::CPAN 

2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v

 view all matches for this distribution


ApacheLog-Parser
2 results

 view release on metacpan or  search on metacpan

bin/cron.loghack  view on Meta::CPAN 

86
87
88
89
90
91
92
93
94
95
96
my $self = bless(\%o, __PACKAGE__);
 
local $SIG{__DIE__} = $self->quiet ? sub {
  die @_ if $^S; # get out if we're in an eval
  $self->stderr(@_);
  $self->death(@_);
} : $SIG{__DIE__};
 
my @got = $self->do_fetch(@only ? @only : $self->servers);
my @links = $self->do_links(@got);

bin/cron.loghack  view on Meta::CPAN 

190
191
192
193
194
195
196
197
198
199
200
  my (@command) = @_;
 
  $self->stdout('running', "  @command");
  my ($ret, $out, $err) = $self->_run(@command);
  $self->stdout(split(/\n/, $out));
  $self->stderr(split(/\n/, $err));
  $ret or die "@command failed:\n$err";
  return($out);
}
 
sub capture {

bin/cron.loghack  view on Meta::CPAN 

208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
 
sub death {
  my $self = shift;
  my (@last) = @_;
 
  my %sym = (stderr => 'E ', stdout => '# ');
  print "DEATH\n  @last\n";
  my $out = $self->{outputs} ||= [];
  foreach my $line (@$out) {
    my $type = shift(@$line);
    my $c = $sym{$type} || $type; # hmm
    print join(' ', $c, @$line), "\n";
  }
}
my %fh = (
  stderr => \*STDERR,
  stdout => \*STDOUT,
);
sub stderr {
  my $self = shift;
  $self->_store_io(stderr => @_);
}
sub stdout {
  my $self = shift;
  $self->_store_io(stdout => @_);
}

 view all matches for this distribution


Apachish-Examples
1 match

 view release on metacpan or  search on metacpan

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

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
my @warnings;
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;
 
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-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') };

 view all matches for this distribution


Apachish
1 match

 view release on metacpan or  search on metacpan

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

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
my @warnings;
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;
 
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-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') };

 view all matches for this distribution


Apigee-Edge
1 match

 view release on metacpan or  search on metacpan

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

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
my @warnings;
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;
 
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-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') };

 view all matches for this distribution


App-ANSIColorUtils
1 match

 view release on metacpan or  search on metacpan

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

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
my @warnings;
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') };

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

81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
@switches = (@switches, split(' ', $1)) if $1;
 
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') };

 view all matches for this distribution


App-ASCIIUtils
1 match

 view release on metacpan or  search on metacpan

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

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
my @warnings;
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') };

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

60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
my $line = <$fh>;
 
close $fh and skip("$file isn't perl", 1) unless $line =~ /^#!\s*(?:\S*perl\S*)((?:\s+-\w*)*)(?:\s*#.*)?$/;
@switches = (@switches, split(' ', $1)) if $1;
 
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') };

 view all matches for this distribution


App-AcmeCpanauthors
1 match

 view release on metacpan or  search on metacpan

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

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
my @warnings;
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') };

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

64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
@switches = (@switches, split(' ', $1)) if $1;
 
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') };

 view all matches for this distribution


App-AcmeCpanlists
1 match

 view release on metacpan or  search on metacpan

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

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
my @warnings;
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;
 
    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-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') };

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

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
my $line = <$fh>;
 
close $fh and skip("$file isn't perl", 1) unless $line =~ /^#!\s*(?:\S*perl\S*)((?:\s+-\w*)*)(?:\s*#.*)?$/;
my @flags = $1 ? split(' ', $1) : ();
 
my $stderr = IO::Handle->new;
 
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, @flags, '-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') };

 view all matches for this distribution


App-AdditivesUtils
2 results

 view release on metacpan or  search on metacpan

lib/App/AdditivesUtils.pm  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
 
use 5.010001;
use strict;
use warnings;
 
use Capture::Tiny 'capture_stderr';
 
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-02-05'; # DATE
our $DIST = 'App-AdditivesUtils'; # DIST
our $VERSION = '0.004'; # VERSION

 view all matches for this distribution


App-Adenosine
7 results

 view release on metacpan or  search on metacpan

lib/App/Adenosine.pm  view on Meta::CPAN 

115
116
117
118
119
120
121
122
123
124
125
      cookie_jar => $self->cookie_jar($uri_base),
      rest => \@extra,
      location => "$_path$query",
   })};
 
   $self->stderr(join(" ", map "'$_'", @curl) . "\n") if $self->verbose;
 
   my ($out, $err, $ret) = $self->capture_curl(@curl);
   return $self->handle_curl_output($out, $err, $ret);
} elsif ($action eq 'exports') {
   print <<'SHELL';

lib/App/Adenosine.pm  view on Meta::CPAN 

153
154
155
156
157
158
159
160
161
162
163
 
   $ret
}
 
sub stdout { print STDOUT $_[1] }
sub stderr { print STDERR $_[1] }
 
sub capture_curl {
   my ($self, @rest) = @_;
 
   my @wrappers = grep { $_->does('App::Adenosine::Role::WrapsCurlCommand') }

lib/App/Adenosine.pm  view on Meta::CPAN 

178
179
180
181
182
183
184
185
186
187
188
189
my ( $http_code ) = ($err =~ m{.*HTTP/1\.[01] (\d)\d\d });
if ($self->verbose) {
   my @filters = grep { $_->does('App::Adenosine::Role::FiltersStdErr') }
      $self->plugins;
   $err = $_->filter_stderr($err) for @filters;
   $self->stderr($err)
}
$out .= "\n" unless $out =~ m/\n\Z/m;
$self->stdout($out);
return if $http_code == 2;
return $http_code;

lib/App/Adenosine.pm  view on Meta::CPAN 

349
350
351
352
353
354
355
356
357
358
359
360
uses a certain hook.  Note that plugins can consume multiple roles to use more
than one hook.  The next sections document the roles and their respective hooks.
 
=head2 C<App::Adenosine::Role::FiltersStdErr>
 
Only a C<filter_stderr> method needs to be implemented.  It takes a string
(stderr output from curl) and should return a string.  An existing example of
a plugin that consumes this role is L<App::Adenosine::Plugin::Rainbow>.
 
=head2 C<App::Adenosine::Role::WrapsCurlCommand>
 
Only a C<wrap> method needs to be implemented.  It takes a coderef and should

 view all matches for this distribution


( run in 0.787 second using v1.01-cache-2.11-cpan-26ccb49234f )