view release on metacpan or  search on metacpan

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

311
312
313
314
315
316
317
318
319
320
321
odbc.allow_persistent = On
odbc.check_persistent = On
odbc.max_persistent = -1
odbc.max_links = -1
odbc.defaultlrl = 4096
odbc.defaultbinmode = 1
[MySQL]
mysql.allow_persistent = On
mysql.max_persistent = -1
mysql.max_links = -1
mysql.default_port =

 view release on metacpan or  search on metacpan

lib/Apache/Tika/Async.pm  view on Meta::CPAN

123
124
125
126
127
128
129
130
131
132
133
 
sub tika_config_temp_file {
    my( $self, %entries ) = @_;
 
    my( $fh, $name ) = tempfile();
    binmode $fh;
    print {$fh} $self->tika_config(%entries);
    close $fh;
 
    return $name;
}

 view release on metacpan or  search on metacpan

Wyrd/Chart.pm  view on Meta::CPAN

376
377
378
379
380
381
382
383
384
385
386
eval {$gd->trueColor(0)};
my $file = $self->{'_graphic_file'};
my $format = $self->{'_file_format'};
local $| = 1;
open OUT, "> $file" || $self->_raise_exception("Could not write file $file: $!");
binmode(OUT);
eval {
        if ($format eq 'gif') {
                print OUT $gd->gif();
        } else {
                print OUT $gd->png();

 view release on metacpan or  search on metacpan

lib/Apache2/API/Request.pm  view on Meta::CPAN

759
760
761
762
763
764
765
766
767
768
769
770
}
my $form = {};
#my $io = IO::File->new( ">/tmp/form_data.txt" );
#my $io2 = IO::File->new( ">/tmp/form_data_after_our_decoding.txt" );
#my $raw = IO::File->new( ">/tmp/raw_form_data.txt" );
#$io->binmode( ':utf8' );
#$io2->binmode( ':utf8' );
foreach my $k ( @params )
{
    my( @values ) = $r->param( $k );
    #$raw->print( "$k => " );
    #$io->print( "$k => " );

 view release on metacpan or  search on metacpan

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

125
126
127
128
129
130
131
132
133
134
    
  # Try to open the file for writing:
  my $ofh = IO::File->new();
  $ofh->open($filename, '>' )
    or die "Cannot open file '$filename' for writing: $!";
  $ofh->binmode;
  $ofh->autoflush(1);
   
  return $ofh;
}# end open_file_for_writing()

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

141
142
143
144
145
146
147
148
149
    
  # Try to open the file for reading:
  my $ifh = IO::File->new();
  $ifh->open($filename, '<' )
    or die "Cannot open file '$filename' for reading: $!";
  $ifh->binmode;
   
  return $ifh;
}# end open_file_for_reading()

lib/Apache2/ASP/MediaManager.pm  view on Meta::CPAN

156
157
158
159
160
161
162
163
164
165
    
  # Try to open the file for appending:
  my $ofh = IO::File->new();
  $ofh->open($filename, '>>' )
    or die "Cannot open file '$filename' for appending: $!";
  $ofh->binmode;
  $ofh->autoflush(1);
   
  return $ofh;
}# end open_file_for_appending()

 view release on metacpan or  search on metacpan

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

62
63
64
65
66
67
68
69
70
71
72
    my $file;
    if (@_) {
            $file = shift;
    }
    open(FILE, $file) or die "Can't open '$file': $!";
    binmode(FILE);
    my $returnMD5=Digest::MD5->new->addfile(*FILE)->hexdigest;
    return $returnMD5;
}
sub Data {
    my $_sec;

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
div128|||
djSP|||
do_aexec5|||
do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
do_chop|||
do_close|||
do_dump_pad|||
do_eof|||

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
# Done in evals to avoid confusing Perl::MinimumVersion
eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _read {
        local *FH;
        open( FH, '<', $_[0] ) or die "open($_[0]): $!";
        binmode FH;
        my $string = do { local $/; <FH> };
        close FH or die "close($_[0]): $!";
        return $string;
}
END_NEW
sub _read {
        local *FH;
        open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
        binmode FH;
        my $string = do { local $/; <FH> };
        close FH or die "close($_[0]): $!";
        return $string;
}
END_OLD

inc/Module/Install.pm  view on Meta::CPAN

416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
# Done in evals to avoid confusing Perl::MinimumVersion
eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _write {
        local *FH;
        open( FH, '>', $_[0] ) or die "open($_[0]): $!";
        binmode FH;
        foreach ( 1 .. $#_ ) {
                print FH $_[$_] or die "print($_[0]): $!";
        }
        close FH or die "close($_[0]): $!";
}
END_NEW
sub _write {
        local *FH;
        open( FH, "> $_[0]"  ) or die "open($_[0]): $!";
        binmode FH;
        foreach ( 1 .. $#_ ) {
                print FH $_[$_] or die "print($_[0]): $!";
        }
        close FH or die "close($_[0]): $!";
}

 view release on metacpan or  search on metacpan

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

38
39
40
41
42
43
44
45
46
47
48
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 release on metacpan or  search on metacpan

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

38
39
40
41
42
43
44
45
46
47
48
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 release on metacpan or  search on metacpan

inc/Module/Install/Can.pm  view on Meta::CPAN

75
76
77
78
79
80
81
82
83
84
        require File::Temp;
        my ( $FH, $tmpfile ) = File::Temp::tempfile(
                "compilexs-XXXXX",
                SUFFIX => '.c',
        );
        binmode $FH;
        print $FH <<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

 view release on metacpan or  search on metacpan

t/10-headers.t  view on Meta::CPAN

61
62
63
64
65
66
67
68
69
70
local $Test::Builder::Level = $Test::Builder::Level + 1;
 
my $tmp = File::Temp->new(UNLINK => 1);
 
binmode $tmp, ':encoding(latin1)';
print $tmp $text;
$tmp->close;
 
my $r = Mock_Request->new(filename => "$tmp", %$params);

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
# Done in evals to avoid confusing Perl::MinimumVersion
eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _read {
        local *FH;
        open( FH, '<', $_[0] ) or die "open($_[0]): $!";
        binmode FH;
        my $string = do { local $/; <FH> };
        close FH or die "close($_[0]): $!";
        return $string;
}
END_NEW
sub _read {
        local *FH;
        open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
        binmode FH;
        my $string = do { local $/; <FH> };
        close FH or die "close($_[0]): $!";
        return $string;
}
END_OLD

inc/Module/Install.pm  view on Meta::CPAN

416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
# Done in evals to avoid confusing Perl::MinimumVersion
eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _write {
        local *FH;
        open( FH, '>', $_[0] ) or die "open($_[0]): $!";
        binmode FH;
        foreach ( 1 .. $#_ ) {
                print FH $_[$_] or die "print($_[0]): $!";
        }
        close FH or die "close($_[0]): $!";
}
END_NEW
sub _write {
        local *FH;
        open( FH, "> $_[0]"  ) or die "open($_[0]): $!";
        binmode FH;
        foreach ( 1 .. $#_ ) {
                print FH $_[$_] or die "print($_[0]): $!";
        }
        close FH or die "close($_[0]): $!";
}

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
div128|||
djSP|||
do_aexec5|||
do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
do_chop|||
do_close|||
do_dump_pad|||
do_eof|||

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
div128|||
djSP|||
do_aexec5|||
do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
do_chop|||
do_close|||
do_dump_pad|||
do_eof|||

 view release on metacpan or  search on metacpan

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

219
220
221
222
223
224
225
226
227
228
229
# object oriented method call, see Eagle p.65
sub handler : method {
  my ( $class, $requestrec ) =  @_ ;
  my ($pk, $model, $status_code);
 
  binmode STDOUT;
  $| = 1;
 
  eval {
    $pk = $class->new( $requestrec );
    $model = $pk->{model};

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

848
849
850
851
852
853
854
855
856
857
858
# write output_media to file, using process number of Apache child process
my $view_cache_dir = $view->{cache_dir};
my $fo_file = "$view_cache_dir/$$.fo";
my $pdf_file = "$view_cache_dir/$$.pdf";
open FO_TEMPLATE, ">$fo_file" or die "can't open file: $fo_file ($!)";
binmode FO_TEMPLATE;
print FO_TEMPLATE $$output_ref;
close FO_TEMPLATE;
 
#   my $error_message = `$fop_command $fo_file $pdf_file 2>&1 1>/dev/null`;
my $error_message = `$fop_command $fo_file $pdf_file 2>&1`;

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

861
862
863
864
865
866
867
868
869
870
871
## the errormoessages go also to STDOUT
## and the returncode is always 0
unless ($error_message =~ /^\[ERROR\]:/m){
  local $/;
  open PDF_OUTPUT, "<$pdf_file" or die "can't open file: $pdf_file ($!)";
  binmode PDF_OUTPUT;
  $$output_ref = <PDF_OUTPUT>;
  close PDF_OUTPUT;
} 
else {
  die "Error processing template with Apache XML FOP: $error_message";

 view release on metacpan or  search on metacpan

t/002.t  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
use Apache::TestRequest qw{GET_BODY GET_RC};
 
Apache::TestRequest::user_agent(reset => 1,
                                requests_redirectable => 0);
 
my @functions=qw/ -X abs accept alarm atan2 bind binmode bless caller
                  chdir chmod chomp chop chown chr chroot close closedir
                  connect continue cos crypt dbmclose dbmopen defined
                  delete die do dump each endgrent endhostent endnetent
                  endprotoent endpwent endservent eof eval exec exists
                  exit exp fcntl fileno flock fork format formline getc

 view release on metacpan or  search on metacpan

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

340
341
342
343
344
345
346
347
348
349
        $r->headers_out()->add('Content-length' , length($respTxt)) ;
    }else{
        $r->err_headers_out()->add('Content-length' , length($respTxt)) ;
    }
 
    binmode STDOUT ;
    print $respTxt  ;
    return  Apache2::Const::OK ;
 
}

 view release on metacpan or  search on metacpan

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

3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
    # Default error message to display when ssi failed to parse
    # Default to [an error occurred while processing this directive]
    errmsg => '[Oops]'
);
my $fh = IO::File->new( "</some/file.html" ) || die( "$!\n" );
$fh->binmode( ':utf8' );
my $size = -s( $fh );
my $html;
$fh->read( $html, $size );
$fh->close;
if( !defined( my $result = $ssi->parse( $html ) ) )

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
div128|||
djSP|||
do_aexec5|||
do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
do_chop|||
do_close|||
do_dump_pad|||
do_eof|||

 view release on metacpan or  search on metacpan

inc/Module/Install/Can.pm  view on Meta::CPAN

75
76
77
78
79
80
81
82
83
84
        require File::Temp;
        my ( $FH, $tmpfile ) = File::Temp::tempfile(
                "compilexs-XXXXX",
                SUFFIX => '.c',
        );
        binmode $FH;
        print $FH <<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

 view release on metacpan or  search on metacpan

lib/Apache2/WebApp/Plugin/File.pm  view on Meta::CPAN

62
63
64
65
66
67
68
69
70
71
72
}
 
my $buffer = "";
 
# send file as a binary stream
binmode STDOUT;
 
local *FILE;
open (FILE, $file) or $self->error("Cannot open file: $!");
while ( read( FILE, $buffer, 4_096 ) ) {
    print STDOUT $buffer;

 view release on metacpan or  search on metacpan

examples/compress.pl  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use warnings;
 
use ApacheLog::Compressor 0.004;
use Sys::Hostname qw(hostname);
 
binmode STDOUT, ':encoding(utf8)';
binmode STDERR, ':encoding(utf8)';
 
my ($in, $out) = @ARGV;
die "No input file provided" unless defined $in && length $in;
die "No output file provided" unless defined $out && length $out;
 
# Write all data to binary output file
open my $out_fh, '>', $out or die "Failed to create output file $out - $!";
binmode $out_fh;
 
# Provide a callback to send data through to the file
my $alc = ApacheLog::Compressor->new(
        on_write        => sub {
                my ($self, $pkt) = @_;

examples/compress.pl  view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44
        }
);
 
# Input file - normally use whichever one's just been closed + rotated
open my $in_fh, '<', $in or die "Failed to open input file $in - $!";
binmode $in_fh, ':encoding(utf8)';
 
# Initial packet to identify which server this came from
$alc->send_packet('server',
        hostname        => hostname(),
);

 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");
 
    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/

 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");
 
    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/

 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
{
    # 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/

 view release on metacpan or  search on metacpan

1234567891  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
  $c = substr $bk . $c , -$o{d} , $o{d} ; 
  $c =~ y/0123456789 /０１２３４５６７８９　/ if $o{f} ; 
  $out .= $c ; 
}
 
binmode STDOUT, ":utf8" ; 
say $out ;
exit ; 
 
no utf8 ; 

 view release on metacpan or  search on metacpan

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

55
56
57
58
59
60
61
62
63
64
65
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/

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

88
89
90
91
92
93
94
95
96
97
98
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/

 view release on metacpan or  search on metacpan

bin/apa  view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19
use Getopt::Std; # function: getopts
use Pod::Usage;  # function: pod2usage
use App::APA;
 
getopts( '1fl:a' , \our %options );
binmode( STDOUT , ':encoding(UTF-8)' ); # warning: wide character
 
my $apa = App::APA -> new();
 
if ( defined( $options{f} or $options{1} ) ) {
  say $apa -> first_item;

 view release on metacpan or  search on metacpan

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

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

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

67
68
69
70
71
72
73
74
75
76
77
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/