perl
view release on metacpan or search on metacpan
dist/Devel-PPPort/parts/base/5007001 view on Meta::CPAN
DEBUG_TOP_FLAG # Z added by devel/scanprov
DEBUG_T_TEST # Z added by devel/scanprov
DEBUG_t_TEST # Z added by devel/scanprov
DEBUG_u_FLAG # Z added by devel/scanprov
DEBUG_u_TEST # Z added by devel/scanprov
DEBUG_X_FLAG # Z added by devel/scanprov
DEBUG_x_FLAG # Z added by devel/scanprov
DEBUG_X_TEST # Z added by devel/scanprov
DEBUG_x_TEST # Z added by devel/scanprov
despatch_signals # F added by devel/scanprov
do_openn # U
EVAL_INREQUIRE # Z added by devel/scanprov
EXEC_ARGV_CAST # Z added by devel/scanprov
expect_number # F added by devel/scanprov
FCNTL_CAN_LOCK # K added by devel/scanprov
FF_0DECIMAL # Z added by devel/scanprov
gv_handler # U
HAS_FSYNC # K added by devel/scanprov
HAS_GETITIMER # K added by devel/scanprov
HAS_GETPAGESIZE # K added by devel/scanprov
HAS_READV # K added by devel/scanprov
dist/Devel-PPPort/parts/embed.fnc view on Meta::CPAN
S |IO * |openn_setup |NN GV *gv|NN char *mode|NN PerlIO **saveifp \
|NN PerlIO **saveofp|NN int *savefd \
|NN char *savetype
S |bool |openn_cleanup |NN GV *gv|NN IO *io|NULLOK PerlIO *fp \
|NN char *mode|NN const char *oname \
|NULLOK PerlIO *saveifp|NULLOK PerlIO *saveofp \
|int savefd|char savetype|int writing \
|bool was_fdopen|NULLOK const char *type \
|NULLOK Stat_t *statbufp
#endif
Ap |bool |do_openn |NN GV *gv|NN const char *oname|I32 len \
|int as_raw|int rawmode|int rawperm \
|NULLOK PerlIO *supplied_fp|NULLOK SV **svp \
|I32 num
xp |bool |do_open_raw |NN GV *gv|NN const char *oname|STRLEN len \
|int rawmode|int rawperm|NULLOK Stat_t *statbufp
xp |bool |do_open6 |NN GV *gv|NN const char *oname|STRLEN len \
|NULLOK PerlIO *supplied_fp|NULLOK SV **svp \
|U32 num
: Used in pp_hot.c and pp_sys.c
p |bool |do_print |NULLOK SV* sv|NN PerlIO* fp
dist/Devel-PPPort/parts/todo/5007001 view on Meta::CPAN
5.007001
bytes_from_utf8 # U
do_openn # U
gv_handler # U
isALNUM_LC_uvchr # U
isALPHA_LC_uvchr # U
isCNTRL_LC_uvchr # U
isDIGIT_LC_uvchr # U
isGRAPH_LC_uvchr # U
isIDFIRST_LC_uvchr # U
isLOWER_LC_uvchr # U
is_lvalue_sub # U
isPRINT_LC_uvchr # U
);
}
}
}
IoOFP(io) = IoIFP(io) = NULL;
}
return io;
}
bool
Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw,
int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp,
I32 num_svs)
{
PERL_ARGS_ASSERT_DO_OPENN;
if (as_raw) {
/* sysopen style args, i.e. integer mode and permissions */
if (num_svs != 0) {
Perl_croak(aTHX_ "panic: sysopen with multiple args, num_svs=%ld",
}
}
}
say_false:
return openn_cleanup(gv, io, fp, mode, oname, saveifp, saveofp, savefd,
savetype, writing, was_fdopen, type, NULL);
}
/* Yes, this is ugly, but it's private, and I don't see a cleaner way to
simplify the two-headed public interface of do_openn. */
static bool
S_openn_cleanup(pTHX_ GV *gv, IO *io, PerlIO *fp, char *mode, const char *oname,
PerlIO *saveifp, PerlIO *saveofp, int savefd, char savetype,
int writing, bool was_fdopen, const char *type, Stat_t *statbufp)
{
int fd;
Stat_t statbuf;
PERL_ARGS_ASSERT_OPENN_CLEANUP;
umask(old_umask);
}
if (fd < 0)
return FALSE;
fp = PerlIO_fdopen(fd, "w+");
if (!fp)
return FALSE;
return do_openn(gv, "+>&", 3, 0, 0, 0, fp, NULL, 0);
}
#if defined(HAS_UNLINKAT) && defined(HAS_RENAMEAT) && defined(HAS_FCHMODAT) && \
(defined(HAS_DIRFD) || defined(HAS_DIR_DD_FD)) && !defined(NO_USE_ATFUNCTIONS) && \
defined(HAS_LINKAT)
# define ARGV_USE_ATFUNCTIONS
#endif
/* Win32 doesn't necessarily return useful information
* in st_dev, st_ino.
|int as_raw \
|int rawmode \
|int rawperm \
|NULLOK PerlIO *supplied_fp
px |bool |do_open6 |NN GV *gv \
|NN const char *oname \
|STRLEN len \
|NULLOK PerlIO *supplied_fp \
|NULLOK SV **svp \
|U32 num
Ap |bool |do_openn |NN GV *gv \
|NN const char *oname \
|I32 len \
|int as_raw \
|int rawmode \
|int rawperm \
|NULLOK PerlIO *supplied_fp \
|NULLOK SV **svp \
|I32 num
px |bool |do_open_raw |NN GV *gv \
|NN const char *oname \
# define delimcpy Perl_delimcpy
# define despatch_signals() Perl_despatch_signals(aTHX)
# define die_sv(a) Perl_die_sv(aTHX_ a)
# define do_close(a,b) Perl_do_close(aTHX_ a,b)
# define do_gv_dump(a,b,c,d) Perl_do_gv_dump(aTHX_ a,b,c,d)
# define do_gvgv_dump(a,b,c,d) Perl_do_gvgv_dump(aTHX_ a,b,c,d)
# define do_hv_dump(a,b,c,d) Perl_do_hv_dump(aTHX_ a,b,c,d)
# define do_join(a,b,c,d) Perl_do_join(aTHX_ a,b,c,d)
# define do_magic_dump(a,b,c,d,e,f,g) Perl_do_magic_dump(aTHX_ a,b,c,d,e,f,g)
# define do_op_dump(a,b,c) Perl_do_op_dump(aTHX_ a,b,c)
# define do_openn(a,b,c,d,e,f,g,h,i) Perl_do_openn(aTHX_ a,b,c,d,e,f,g,h,i)
# define do_pmop_dump(a,b,c) Perl_do_pmop_dump(aTHX_ a,b,c)
# define do_sprintf(a,b,c) Perl_do_sprintf(aTHX_ a,b,c)
# define do_sv_dump(a,b,c,d,e,f,g) Perl_do_sv_dump(aTHX_ a,b,c,d,e,f,g)
# define doing_taint Perl_doing_taint
# define doref(a,b,c) Perl_doref(aTHX_ a,b,c)
# define dounwind(a) Perl_dounwind(aTHX_ a)
# define dowantarray() Perl_dowantarray(aTHX)
# define dump_all() Perl_dump_all(aTHX)
# define dump_eval() Perl_dump_eval(aTHX)
# define dump_form(a) Perl_dump_form(aTHX_ a)
sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0);
}
bool
Perl_do_open(pTHX_ GV *gv, const char *name, I32 len, int as_raw,
int rawmode, int rawperm, PerlIO *supplied_fp)
{
PERL_ARGS_ASSERT_DO_OPEN;
return do_openn(gv, name, len, as_raw, rawmode, rawperm,
supplied_fp, (SV **) NULL, 0);
}
#ifndef OS2
bool
Perl_do_aexec(pTHX_ SV *really, SV **mark, SV **sp)
{
PERL_ARGS_ASSERT_DO_AEXEC;
return do_aexec5(really, mark, sp, 0, 0);
=cut
*/
#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
#if defined(__DECC) && defined(__osf__)
#pragma message disable (mainparm) /* Perl uses the envp in main(). */
#endif
#define do_open(g, n, l, a, rm, rp, sf) \
do_openn(g, n, l, a, rm, rp, sf, (SV **) NULL, 0)
#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
# define do_exec(cmd) do_exec3(cmd,0,0)
#endif
#ifdef OS2
# define do_aexec Perl_do_aexec
#else
# define do_aexec(really, mark,sp) do_aexec5(really, mark, sp, 0, 0)
#endif
#define PERL_ARGS_ASSERT_DO_OPEN6 \
assert(gv); assert(oname)
PERL_CALLCONV bool
Perl_do_open_raw(pTHX_ GV *gv, const char *oname, STRLEN len, int rawmode, int rawperm, Stat_t *statbufp)
__attribute__visibility__("hidden");
#define PERL_ARGS_ASSERT_DO_OPEN_RAW \
assert(gv); assert(oname)
PERL_CALLCONV bool
Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num);
#define PERL_ARGS_ASSERT_DO_OPENN \
assert(gv); assert(oname)
PERL_CALLCONV void
Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm);
#define PERL_ARGS_ASSERT_DO_PMOP_DUMP \
assert(file)
PERL_CALLCONV bool
Perl_do_print(pTHX_ SV *sv, PerlIO *fp)
t/lib/warnings/doio view on Meta::CPAN
Can't open date\|: .*? at - line 29\.
########
# doio.c [Perl_do_eof]
use warnings 'io' ;
my $a = eof STDOUT ;
no warnings 'io' ;
$a = eof STDOUT ;
EXPECT
Filehandle STDOUT opened only for output at - line 3.
########
# doio.c [Perl_do_openn]
use Config;
BEGIN {
if ($Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only without perlio
EOM
exit;
}
}
use warnings 'io';
my $x = "foo";
open FOO, '>', \$x;
open BAR, '>&', \*STDOUT; # should not warn
no warnings 'io';
open FOO, '>', \$x;
EXPECT
Can't open a reference at - line 14.
########
# doio.c [Perl_do_openn]
use Config;
BEGIN {
if (!$Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only with perlio
EOM
exit;
}
}
use warnings 'io' ;
close STDOUT;
open FH1, "../harness"; close FH1;
no warnings 'io' ;
open FH2, "../harness"; close FH2;
EXPECT
Filehandle STDOUT reopened as FH1 only for input at - line 14.
########
# doio.c [Perl_do_openn]
use Config;
use utf8;
use open qw( :utf8 :std );
BEGIN {
if (!$Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only with perlio
EOM
exit;
}
}
use warnings 'io' ;
close STDOUT;
open ᶠᚻ1, "../harness"; close ᶠᚻ1;
no warnings 'io' ;
open ᶠᚻ2, "../harness"; close ᶠᚻ2;
EXPECT
Filehandle STDOUT reopened as ᶠᚻ1 only for input at - line 16.
########
# doio.c [Perl_do_openn]
use Config;
BEGIN {
if (!$Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only with perlio
EOM
exit;
}
}
use warnings 'io' ;
close STDIN;
open my $fh1, ">doiowarn.tmp"; close $fh1;
no warnings 'io' ;
open my $fh2, ">doiowarn.tmp"; close $fh2;
unlink "doiowarn.tmp";
EXPECT
Filehandle STDIN reopened as $fh1 only for output at - line 14.
########
# doio.c [Perl_do_openn]
use Config;
use utf8;
use open qw( :utf8 :std );
BEGIN {
if (!$Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only with perlio
EOM
exit;
t/lib/warnings/doio view on Meta::CPAN
}
use warnings 'io' ;
close STDIN;
open my $ᶠᚻ1, ">doiowarn.tmp"; close $ᶠᚻ1;
no warnings 'io' ;
open my $ᶠᚻ2, ">doiowarn.tmp"; close $ᶠᚻ2;
unlink "doiowarn.tmp";
EXPECT
Filehandle STDIN reopened as $ᶠᚻ1 only for output at - line 16.
########
# doio.c [Perl_do_openn]
use Config;
use utf8;
use open qw( :utf8 :std );
BEGIN {
if (!$Config{useperlio}) {
print <<EOM;
SKIPPED
# warns only with perlio
EOM
exit;
( run in 0.645 second using v1.01-cache-2.11-cpan-49f99fa48dc )