binmode results from the CPAN

Alien-IUP

view release on metacpan or search on metacpan

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

2 results

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

1 match

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

2 results

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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

2 results

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

1 match

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

1 match

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

2 results

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

1 match

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

1 match

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

2 results

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

2 results

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