view release on metacpan or  search on metacpan

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

40
41
42
43
44
45
46
47
48
49
50
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

73
74
75
76
77
78
79
80
81
82
83
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

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

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

376
377
378
379
380
381
382
383
384
385
}
 
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;
}

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

404
405
406
407
408
409
410
411
412
413
414
}
 
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/00-compile.t  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
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

73
74
75
76
77
78
79
80
81
82
83
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

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

48
49
50
51
52
53
54
55
56
57
58
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

81
82
83
84
85
86
87
88
89
90
91
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

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

376
377
378
379
380
381
382
383
384
385
}
 
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;
}

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

404
405
406
407
408
409
410
411
412
413
414
}
 
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/00-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/

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

71
72
73
74
75
76
77
78
79
80
81
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

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

47
48
49
50
51
52
53
54
55
56
57
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

80
81
82
83
84
85
86
87
88
89
90
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

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

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

77
78
79
80
81
82
83
84
85
86
87
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

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

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

75
76
77
78
79
80
81
82
83
84
85
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

t/00-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/

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

71
72
73
74
75
76
77
78
79
80
81
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

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

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

77
78
79
80
81
82
83
84
85
86
87
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

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

31
32
33
34
35
36
37
38
39
40
41
{
    # 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)

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

54
55
56
57
58
59
60
61
62
63
64
 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");
 
# in older perls, -c output is simply the file portion of the path being tested

 view release on metacpan or  search on metacpan

t/00-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/

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

71
72
73
74
75
76
77
78
79
80
81
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

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

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

75
76
77
78
79
80
81
82
83
84
85
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

scripts/jiraprint  view on Meta::CPAN

66
67
68
69
70
71
72
73
74
75
76
77
78
79
    exit(1);
}
 
unless( $output ){
 
    binmode STDOUT, ':utf8';
    print $j->process_template();
}else{
    open OUTPUT , '>' , $output;
    binmode OUTPUT , ':utf8';
    print OUTPUT $j->process_template();
    close OUTPUT;
    $log->info("XeTeX file written to $output. Now run xelatex $output to generate your PDF.");
}

 view release on metacpan or  search on metacpan

lib/App/JSON/to.pm  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
30
31
32
33
    my $obj = $class->can('new') ? $class->new : $class;
 
    # TODO parse options
    # GetOptions($obj->options);
 
    binmode(STDIN, ':raw');
    my $data = decode_json do { local $/; <STDIN> };
 
    if (my $enc_meth = $obj->can('encoding')) {
        binmode(STDOUT, ':encoding('.$obj->$enc_meth().')');
    }
 
    print $obj->dump($data);
}

 view release on metacpan or  search on metacpan

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

22
23
24
25
26
27
28
29
30
31
    else {
        my $data = $yaml->load_string($input);
        $output = $json->encode($data);
    }
    $output .= "\n" unless $output =~ /\n\z/;
    binmode(STDOUT, ":utf8");
    print $output;
}
 
1;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
Revision history for App-Jiffy
 
0.09  2020-03-31 16:46:10 CDT
        - Prevent warning when entering blank entry
        - Set binmode for output to support utf8 strings
 
0.08  2018-10-31 19:32:13 PDT
        - Set timezone to `local` when displaying today's `timesheet`
 
0.07  2018-04-06 17:47:15 CDT

 view release on metacpan or  search on metacpan

lib/App/JobLog/Command/edit.pm  view on Meta::CPAN

44
45
46
47
48
49
50
51
52
53
54
    $self->usage_error($@) if $@;
}
elsif ( my $editor = editor ) {
    if ( my $log = log ) {
        my ( $fh, $fn ) = tempfile;
        binmode $fh;
        copy( $log, $fh );
        $fh->close;
        $fh = FileHandle->new($log);
        my $md5  = Digest::MD5->new;
        my $md51 = $md5->addfile($fh)->hexdigest;

 view release on metacpan or  search on metacpan

t/00-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/

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

71
72
73
74
75
76
77
78
79
80
81
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

t/TestBot.pm  view on Meta::CPAN

164
165
166
167
168
169
170
171
172
173
174
sub get_output {
    my $self = shift;
 
    my $fh;
    eval { open( $fh, $self->output_file ); 1 } or return '';
    binmode( $fh, ':utf8' );
    local $/ = undef;
    return <$fh>;
}
 
sub stop {

 view release on metacpan or  search on metacpan

xt/author/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/

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

70
71
72
73
74
75
76
77
78
79
80
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

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

39
40
41
42
43
44
45
46
47
48
49
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

72
73
74
75
76
77
78
79
80
81
82
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

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

376
377
378
379
380
381
382
383
384
385
}
 
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;
}

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

404
405
406
407
408
409
410
411
412
413
414
}
 
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

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

376
377
378
379
380
381
382
383
384
385
}
 
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;
}

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

404
405
406
407
408
409
410
411
412
413
414
}
 
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

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

376
377
378
379
380
381
382
383
384
385
}
 
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;
}

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

404
405
406
407
408
409
410
411
412
413
414
}
 
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/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

70
71
72
73
74
75
76
77
78
79
80
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

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/App/LTSVUtils.pm  view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86
    $fh = *STDIN;
} else {
    open $fh, "<", $args{filename} or
        return [500, "Can't open input filename '$args{filename}': $!"];
}
binmode $fh, ":encoding(utf8)";
 
my $code_getline = sub {
    my $row0 = <$fh>;
    return undef unless defined $row0;
    chomp($row0);