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


Alien-IUP

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

233
234
235
236
237
238
239
240
241
242
243
return 1 if $sha1sum eq 'DO_NOT_CHECK_SHA1';
warn "Checking checksum for '$file'...\n";
my $sha1 = Digest::SHA->new;
my $fh;
open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
binmode($fh);
$sha1->addfile($fh);
close($fh);
my $file_sha1sum = $sha1->hexdigest;
my $rv = ($file_sha1sum eq $sha1sum) ? 1 : 0;
warn "###WARN## sha1 mismatch: got      '", $file_sha1sum , "'\n",

 view all matches for this distribution


Alien-InteractiveBrokers

 view release on metacpan or  search on metacpan

inc/MY/Build.pm  view on Meta::CPAN

73
74
75
76
77
78
79
80
81
82
}
 
# Write it to disk
open my $fd, '>', $self->ibapi_archive()
    or die "\nCannot write to " . $self->ibapi_archive() . ": $!";
binmode( $fd );
my $bytes = syswrite( $fd, $response->{content} );
die "\nError writing to " . $self->ibapi_archive() . ": $!"
    unless( $bytes == length( $response->{content} ) );
close( $fd );

 view all matches for this distribution


Alien-Jena-Fuseki

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-Jena

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-LLVM

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-LZ4

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-LibBigWig

 view release on metacpan or  search on metacpan

t/compile.t  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
{
    # 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");
 
    if (@_warnings)

 view all matches for this distribution


Alien-LibCIAORegion

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-LibUSB

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-Libarchive-Installer

 view release on metacpan or  search on metacpan

lib/Alien/Libarchive/Installer.pm  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
  require File::Spec;
   
  my $fn = File::Spec->catfile($dir, "libarchive-$version.tar.gz");
   
  open my $fh, '>', $fn;
  binmode $fh;
  print $fh $response->{content};
  close $fh;
   
  wantarray ? ($fn, $version) : $fn;
}

 view all matches for this distribution


Alien-Libarchive

 view release on metacpan or  search on metacpan

inc/Alien/LZO/Installer.pm  view on Meta::CPAN

182
183
184
185
186
187
188
189
190
191
192
  require File::Spec;
   
  my $fn = _catfile($dir, "lzo-$version.tar.gz");
   
  open my $fh, '>', $fn;
  binmode $fh;
  print $fh $response->{content};
  close $fh;
   
  wantarray ? ($fn, $version) : $fn;
}

inc/Alien/LZO/Installer.pm  view on Meta::CPAN

451
452
453
454
455
456
457
458
459
460
461
foreach my $object (@objects)
{
  my $fh;
  my $fn = _catfile($dir, $object);
  open($fh, '>', $fn) || die "unable to write $fn $!";
  binmode $fh;
  print $fh $ar->get_content($object)->{data};
  close $fh;
}     
system 'dlltool',
  '--export-all-symbols',

 view all matches for this distribution


Alien-Libmcrypt

 view release on metacpan or  search on metacpan

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

43
44
45
46
47
48
49
50
51
52
53
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/

 view all matches for this distribution


Alien-MSYS2

 view release on metacpan or  search on metacpan

share/download.pl  view on Meta::CPAN

203
204
205
206
207
208
209
210
211
212
213
  unless $http_response->{success};
 
my $fh;
open($fh, '>', "$filename.tmp")
  || die "unable to open $filename.tmp $!";
binmode $fh;
print($fh $http_response->{content})
  || die "unable to write to $filename.tmp $!";
close($fh)
  || die "unable to close $filename.tmp $!";
rename("$filename.tmp" => $filename)

 view all matches for this distribution


Alien-Meson

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-NLOpt

 view release on metacpan or  search on metacpan

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

36
37
38
39
40
41
42
43
44
45
46
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/

 view all matches for this distribution


Alien-NLopt

 view release on metacpan or  search on metacpan

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

36
37
38
39
40
41
42
43
44
45
46
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/

 view all matches for this distribution


Alien-Ninja

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-Nodejs

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-OTR

 view release on metacpan or  search on metacpan

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

29
30
31
32
33
34
35
36
37
38
39
{
    # 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");
 
    if (@_warnings)

 view all matches for this distribution


Alien-OpenCV

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-OpenJDK

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-PGPLOT

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-PNG

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

326
327
328
329
330
331
332
333
334
335
sub check_sha1sum {
  my( $self, $file, $sha1sum ) = @_;
  my $sha1 = Digest::SHA->new;
  my $fh;
  open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
  binmode($fh);
  $sha1->addfile($fh);
  close($fh);
  return ($sha1->hexdigest eq $sha1sum) ? 1 : 0
}

 view all matches for this distribution


Alien-PlantUML

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-Qhull

 view release on metacpan or  search on metacpan

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

36
37
38
39
40
41
42
43
44
45
46
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/

 view all matches for this distribution


Alien-ROOT

 view release on metacpan or  search on metacpan

inc/inc_File-Fetch/File/Fetch.pm  view on Meta::CPAN

673
674
675
676
677
678
679
680
681
682
       "Could not open '%1' for writing: %2",$to,$!));
}
 
$fh->autoflush(1);
 
binmode $fh;
 
my $rc = $http->request( $uri, sub { my ($self,$dref,$cbargs) = @_; local $\; print {$cbargs} $$dref }, $fh );
 
close $fh;

inc/inc_File-Fetch/File/Fetch.pm  view on Meta::CPAN

748
749
750
751
752
753
754
755
756
757
    return $self->_error(loc(
         "Could not open '%1' for writing: %2",$to,$!));
}
 
$fh->autoflush(1);
binmode $fh;
 
my $path = File::Spec::Unix->catfile( $self->path, $self->file );
my $req = "GET $path HTTP/1.0\x0d\x0aHost: " . $self->host . "\x0d\x0a\x0d\x0a";
$sock->send( $req );

 view all matches for this distribution


Alien-Ruby

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-Rust

 view release on metacpan or  search on metacpan

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

35
36
37
38
39
40
41
42
43
44
45
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/

 view all matches for this distribution


Alien-SDL

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

419
420
421
422
423
424
425
426
427
428
429
sub check_sha1sum {
  my( $self, $file, $sha1sum ) = @_;
  my $sha1 = Digest::SHA->new;
  my $fh;
  open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
  binmode($fh);
  $sha1->addfile($fh);
  close($fh);
  my $_sha1sum = $sha1->hexdigest;
  warn "###WARN## checksum for file $file is $_sha1sum but we expect $sha1sum\n" if $_sha1sum ne $sha1sum;
  return ($_sha1sum eq $sha1sum) ? 1 : 0

 view all matches for this distribution


Alien-SDL2

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

393
394
395
396
397
398
399
400
401
402
403
sub check_sha1sum {
  my( $self, $file, $sha1sum ) = @_;
  my $sha1 = Digest::SHA->new;
  my $fh;
  open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
  binmode($fh);
  $sha1->addfile($fh);
  close($fh);
  my $_sha1sum = $sha1->hexdigest;
  warn "###WARN## checksum for file $file is $_sha1sum but we expect $sha1sum\n" if $_sha1sum ne $sha1sum;
  return ($_sha1sum eq $sha1sum) ? 1 : 0

 view all matches for this distribution


( run in 0.510 second using v1.01-cache-2.11-cpan-496ff517765 )