perl
view release on metacpan or search on metacpan
d_sbrkproto=''
d_scalbn=''
d_scalbnl=''
d_select=''
d_sem=''
d_semctl=''
d_semget=''
d_semop=''
d_sendmsg=''
d_setegid=''
d_setenv=''
d_seteuid=''
d_setgrent=''
d_setgrent_r=''
setgrent_r_proto=''
d_setgrps=''
d_sethent=''
d_sethostent_r=''
sethostent_r_proto=''
d_setitimer=''
d_setlinebuf=''
d_ttyname_r=''
ttyname_r_proto=''
d_tzname=''
d_u32align=''
d_ualarm=''
d_umask=''
d_semctl_semid_ds=''
d_semctl_semun=''
d_union_semun=''
d_unordered=''
d_unsetenv=''
d_usleep=''
d_usleepproto=''
d_ustat=''
d_pseudofork=''
d_vfork=''
usevfork=''
d_voidsig=''
signal_t=''
d_wait4=''
d_waitpid=''
$rm_try tryh.h
: see if sendmsg exists
set sendmsg d_sendmsg
eval $inlibc
: see if setegid exists
set setegid d_setegid
eval $inlibc
: see if setenv exists
set setenv d_setenv
eval $inlibc
: see if seteuid exists
set seteuid d_seteuid
eval $inlibc
: see if setgrent exists
set setgrent d_setgrent
eval $inlibc
eval $inlibc
: see if umask exists
set umask d_umask
eval $inlibc
: see if unordered exists
set unordered d_unordered
eval $inlibc
: see if unsetenv exists
set unsetenv d_unsetenv
eval $inlibc
: see if usleep exists
set usleep d_usleep
eval $inlibc
: see if prototype for usleep is available
echo " "
set d_usleepproto usleep $i_unistd unistd.h
eval $hasproto
d_seekdir='$d_seekdir'
d_select='$d_select'
d_sem='$d_sem'
d_semctl='$d_semctl'
d_semctl_semid_ds='$d_semctl_semid_ds'
d_semctl_semun='$d_semctl_semun'
d_semget='$d_semget'
d_semop='$d_semop'
d_sendmsg='$d_sendmsg'
d_setegid='$d_setegid'
d_setenv='$d_setenv'
d_seteuid='$d_seteuid'
d_setgrent='$d_setgrent'
d_setgrent_r='$d_setgrent_r'
d_setgrps='$d_setgrps'
d_sethent='$d_sethent'
d_sethostent_r='$d_sethostent_r'
d_setitimer='$d_setitimer'
d_setlinebuf='$d_setlinebuf'
d_setlocale='$d_setlocale'
d_setlocale_accepts_any_locale_name='$d_setlocale_accepts_any_locale_name'
d_truncl='$d_truncl'
d_ttyname_r='$d_ttyname_r'
d_tzname='$d_tzname'
d_u32align='$d_u32align'
d_ualarm='$d_ualarm'
d_umask='$d_umask'
d_uname='$d_uname'
d_union_semun='$d_union_semun'
d_unlinkat='$d_unlinkat'
d_unordered='$d_unordered'
d_unsetenv='$d_unsetenv'
d_uselocale='$d_uselocale'
d_usleep='$d_usleep'
d_usleepproto='$d_usleepproto'
d_ustat='$d_ustat'
d_vendorarch='$d_vendorarch'
d_vendorbin='$d_vendorbin'
d_vendorlib='$d_vendorlib'
d_vendorscript='$d_vendorscript'
d_vfork='$d_vfork'
d_void_closedir='$d_void_closedir'
Cross/config.sh-arm-linux view on Meta::CPAN
d_seekdir='define'
d_select='define'
d_sem='define'
d_semctl='define'
d_semctl_semid_ds='define'
d_semctl_semun='define'
d_semget='define'
d_semop='define'
d_sendmsg='define'
d_setegid='define'
d_setenv='undef'
d_seteuid='define'
d_setgrent='define'
d_setgrent_r='undef'
d_setgrps='define'
d_sethent='define'
d_sethostent_r='undef'
d_setitimer='define'
d_setlinebuf='define'
d_setlocale='define'
d_setlocale_accepts_any_locale_name='undef'
Cross/config.sh-arm-linux view on Meta::CPAN
d_truncl='define'
d_ttyname_r='undef'
d_tzname='define'
d_u32align='undef'
d_ualarm='define'
d_umask='define'
d_uname='define'
d_union_semun='undef'
d_unlinkat='undef'
d_unordered='undef'
d_unsetenv='define'
d_uselocale='undef'
d_usleep='define'
d_usleepproto='define'
d_ustat='define'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
Cross/config.sh-arm-linux-n770 view on Meta::CPAN
d_seekdir='define'
d_select='define'
d_sem='define'
d_semctl='define'
d_semctl_semid_ds='define'
d_semctl_semun='define'
d_semget='define'
d_semop='define'
d_sendmsg='define'
d_setegid='define'
d_setenv='undef'
d_seteuid='define'
d_setgrent='define'
d_setgrent_r='undef'
d_setgrps='define'
d_sethent='define'
d_sethostent_r='undef'
d_setitimer='define'
d_setlinebuf='define'
d_setlocale='define'
d_setlocale_accepts_any_locale_name='undef'
Cross/config.sh-arm-linux-n770 view on Meta::CPAN
d_truncl='define'
d_ttyname_r='undef'
d_tzname='define'
d_u32align='undef'
d_ualarm='define'
d_umask='define'
d_uname='define'
d_union_semun='undef'
d_unlinkat='undef'
d_unordered='undef'
d_unsetenv='define'
d_uselocale='undef'
d_usleep='define'
d_usleepproto='define'
d_ustat='define'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
./perl -Ilib ~/my_mission_critical_test
then you need to set up the shared library path explicitly.
You can do this with
LD_LIBRARY_PATH=`pwd`:$LD_LIBRARY_PATH; export LD_LIBRARY_PATH
for Bourne-style shells, or
setenv LD_LIBRARY_PATH `pwd`
for Csh-style shells. (This procedure may also be needed if for some
unexpected reason Configure fails to set up makefile correctly.) (And
again, it may be something other than LD_LIBRARY_PATH for you, see above.)
You can often recognize failures to build/use a shared libperl from error
messages complaining about a missing libperl.so (or libperl.sl in HP-UX),
for example:
18126:./miniperl: /sbin/loader: Fatal Error: cannot map libperl.so
Note: One possible reason for errors is that some external programs
may be broken due to the combination of your environment and the way
'make test' exercises them. For example, this may happen if you have
one or more of these environment variables set: LC_ALL LC_CTYPE
LC_COLLATE LANG. In some versions of UNIX, the non-English locales
are known to cause programs to exhibit mysterious errors.
If you have any of the above environment variables set, please try
setenv LC_ALL C
(for C shell) or
LC_ALL=C;export LC_ALL
for Bourne or Korn shell) from the command line and then retry
make test. If the tests then succeed, you may have a broken program that
is confusing the testing. Please run the troublesome test by hand as
shown above and see whether you can locate the program. Look for
things like: exec, `backquoted command`, system, open("|...") or
Porting/Glossary view on Meta::CPAN
d_sendmsg (d_sendmsg.U):
This variable conditionally defines the HAS_SENDMSG symbol, which
indicates to the C program that the sendmsg() routine is available.
d_setegid (d_setegid.U):
This variable conditionally defines the HAS_SETEGID symbol, which
indicates to the C program that the setegid() routine is available
to change the effective gid of the current program.
d_setenv (d_setenv.U):
This variable conditionally defines the HAS_SETENV symbol, which
indicates to the C program that the setenv routine is available.
d_seteuid (d_seteuid.U):
This variable conditionally defines the HAS_SETEUID symbol, which
indicates to the C program that the seteuid() routine is available
to change the effective uid of the current program.
d_setgrent (d_setgrent.U):
This variable conditionally defines the HAS_SETGRENT symbol, which
indicates to the C program that the setgrent() routine is available
for initializing sequential access to the group database.
Porting/Glossary view on Meta::CPAN
union semun is defined by including <sys/sem.h>.
d_unlinkat (d_fsat.U):
This variable conditionally defines the HAS_UNLINKAT symbol, which
indicates the POSIX unlinkat() function isavailable.
d_unordered (d_unordered.U):
This variable conditionally defines the HAS_UNORDERED symbol, which
indicates to the C program that the unordered() routine is available.
d_unsetenv (d_unsetenv.U):
This variable conditionally defines the HAS_UNSETENV symbol, which
indicates to the C program that the unsetenv () routine is available.
d_uselocale (d_newlocale.U):
This variable conditionally defines the HAS_USELOCALE symbol, which
indicates to the C program that the uselocale() routine is available
to set the current locale for the calling thread.
d_usleep (d_usleep.U):
This variable conditionally defines HAS_USLEEP if usleep() is
available to do high granularity sleeps.
Porting/config.sh view on Meta::CPAN
d_seekdir='define'
d_select='define'
d_sem='define'
d_semctl='define'
d_semctl_semid_ds='define'
d_semctl_semun='define'
d_semget='define'
d_semop='define'
d_sendmsg='define'
d_setegid='define'
d_setenv='define'
d_seteuid='define'
d_setgrent='define'
d_setgrent_r='undef'
d_setgrps='define'
d_sethent='define'
d_sethostent_r='undef'
d_setitimer='define'
d_setlinebuf='define'
d_setlocale='define'
d_setlocale_accepts_any_locale_name='undef'
Porting/config.sh view on Meta::CPAN
d_truncl='define'
d_ttyname_r='define'
d_tzname='define'
d_u32align='define'
d_ualarm='define'
d_umask='define'
d_uname='define'
d_union_semun='undef'
d_unlinkat='define'
d_unordered='undef'
d_unsetenv='define'
d_uselocale='define'
d_usleep='define'
d_usleepproto='define'
d_ustat='undef'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
Porting/config_H view on Meta::CPAN
#define HAS_UALARM /**/
/* HAS_UNORDERED:
* This symbol, if defined, indicates that the unordered routine is
* available to check whether two doubles are unordered
* (effectively: whether either of them is NaN)
*/
/*#define HAS_UNORDERED / **/
/* HAS_UNSETENV:
* This symbol, if defined, indicates that the unsetenv () routine is
* available for use.
*/
#define HAS_UNSETENV /**/
/* HAS_USLEEP_PROTO:
* This symbol, if defined, indicates that the system provides
* a prototype for the usleep() function. Otherwise, it is up
* to the program to supply one. A good guess is
* extern int usleep(useconds_t);
*/
-Dprefix=/usr/opt/perl5_32
The -Dprefix option will install Perl in a directory parallel to the
IBM AIX system Perl installation.
=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (threaded/64-bit)
With the following options you get a threaded Perl version which
passes all make tests in 64-bit mode.
export OBJECT_MODE=64 / setenv OBJECT_MODE 64 (depending on your shell)
rm config.sh
./Configure \
-d \
-Dcc=cc_r \
-Duseshrplib \
-Dusethreads \
-Duse64bitall \
-Dprefix=/usr/opt/perl5_64
=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (64-bit)
With the following options you get a Perl version which passes all
make tests in 64-bit mode.
export OBJECT_MODE=64 / setenv OBJECT_MODE 64 (depending on your shell)
rm config.sh
./Configure \
-d \
-Dcc=cc_r \
-Duseshrplib \
-Duse64bitall \
-Dprefix=/usr/opt/perl5_64
The -Dprefix option will install Perl in a directory parallel to the
README.cygwin view on Meta::CPAN
EXTERN.h - __declspec(dllimport)
XSUB.h - __declspec(dllexport)
cygwin/cygwin.c - os_extras (getcwd, spawn, and several
Cygwin:: functions)
perl.c - os_extras, -i.bak
perl.h - binmode
doio.c - win9x can not rename a file when it is open
pp_sys.c - do not define h_errno, init
_pwent_struct.pw_comment
util.c - use setenv
util.h - PERL_FILE_IS_ABSOLUTE macro
pp.c - Comment about Posix vs IEEE math under
Cygwin
perlio.c - CR/LF mode
perliol.c - Comment about EXTCONST under Cygwin
=item Compiled Module Source
ext/Compress-Raw-Zlib/Makefile.PL
- Can't install via CPAN shell under Cygwin
README.os390 view on Meta::CPAN
export _TAG_REDIR_OUT="txt"
=item For ASCII or EBCDIC:
export PATH=/usr/local/perl/ascii:$PATH
export LIBPATH=/usr/local/perl/ascii/lib:$LIBPATH
perlV.R.M args
=back
If tcsh is your login shell then use the setenv command.
=head1 AUTHORS
David Fiander and Peter Prymmer with thanks to Dennis Longnecker
and William Raffloer for valuable reports, LPAR and PTF feedback.
Thanks to Mike MacIsaac and Egon Terwedow for SG24-5944-00.
Thanks to Ignasi Roca for pointing out the floating point problems.
Thanks to John Goodyear for dynamic loading help.
Mike Fulton and Karl Williamson have provided updates for UTF8, DLL, 64-bit and
config_h.SH view on Meta::CPAN
*/
#$d_scalbnl HAS_SCALBNL /**/
/* HAS_SENDMSG:
* This symbol, if defined, indicates that the sendmsg routine is
* available to send structured socket messages.
*/
#$d_sendmsg HAS_SENDMSG /**/
/* HAS_SETENV:
* This symbol, if defined, indicates that the setenv routine is
* available for use.
*/
#$d_setenv HAS_SETENV /**/
/* HAS_SETITIMER:
* This symbol, if defined, indicates that the setitimer routine is
* available to set interval timers.
*/
#$d_setitimer HAS_SETITIMER /**/
/* HAS_SETLOCALE:
* This symbol, if defined, indicates that the setlocale routine is
* available to handle locale-specific ctype implementations.
config_h.SH view on Meta::CPAN
#$d_ualarm HAS_UALARM /**/
/* HAS_UNORDERED:
* This symbol, if defined, indicates that the unordered routine is
* available to check whether two doubles are unordered
* (effectively: whether either of them is NaN)
*/
#$d_unordered HAS_UNORDERED /**/
/* HAS_UNSETENV:
* This symbol, if defined, indicates that the unsetenv () routine is
* available for use.
*/
#$d_unsetenv HAS_UNSETENV /**/
/* HAS_USLEEP_PROTO:
* This symbol, if defined, indicates that the system provides
* a prototype for the usleep() function. Otherwise, it is up
* to the program to supply one. A good guess is
* extern int usleep(useconds_t);
*/
#$d_usleepproto HAS_USLEEP_PROTO /**/
/* HAS_USTAT:
configure.com view on Meta::CPAN
$ ELSE
$ d_shm = "undef"
$ d_shmat = "undef"
$ d_shmatprototype = "undef"
$ d_shmctl = "undef"
$ d_shmdt = "undef"
$ d_shmget = "undef"
$ shmattype = "undef"
$ ENDIF
$!
$! Check for setenv
$!
$ OS
$ WS "#if defined(__DECC) || defined(__DECCXX)"
$ WS "#include <stdlib.h>"
$ WS "#endif"
$ WS "#include <stdio.h>"
$ WS "int main()"
$ WS "{"
$ WS "setenv(""FOO"", ""BAR"", 0);"
$ WS "exit(0);"
$ WS "}"
$ CS
$ tmp = "setenv"
$ GOSUB inlibc
$ d_setenv = tmp
$!
$! Check for setproctitle
$!
$ OS
$ WS "#if defined(__DECC) || defined(__DECCXX)"
$ WS "#include <stdlib.h>"
$ WS "#endif"
$ WS "#include <stdio.h>"
$ WS "int main()"
$ WS "{"
configure.com view on Meta::CPAN
$!
$ d_attribut="undef"
$ d_getitimer="define"
$ d_gettimeod="define"
$ d_mmap="define"
$ d_mprotect="define"
$ d_munmap="define"
$ d_msync="define"
$ d_ualarm="define"
$ d_uname="define"
$! d_unsetenv="define" ! Fix me - Activating requires changing VMS code
$ d_unsetenv="undef" ! Change will be needed to allow GNV integration
$ d_clearenv="undef"
$ d_usleep="define"
$ d_setitimer="define"
$ d_sigaction="define"
$ d_siginfo_si_addr="define"
$ d_siginfo_si_band="define"
$ d_siginfo_si_errno="define"
$ d_siginfo_si_fd="define"
$ d_siginfo_si_pid="define"
$ d_siginfo_si_status="define"
configure.com view on Meta::CPAN
$ ELSE
$ WC "d_sem='undef'"
$ WC "d_semctl='undef'"
$ WC "d_semctl_semid_ds='undef'"
$ WC "d_semctl_semun='undef'"
$ WC "d_semget='undef'"
$ WC "d_semop='undef'"
$ ENDIF
$ WC "d_sendmsg='define'"
$ WC "d_setegid='undef'"
$ WC "d_setenv='" + d_setenv + "'"
$ WC "d_seteuid='" + d_seteuid + "'"
$ WC "d_setgrent='" + d_setgrent + "'"
$ WC "d_setgrps='undef'"
$ WC "d_sethent='" + d_sethent + "'"
$ WC "d_setitimer='" + d_setitimer + "'"
$ WC "d_setlinebuf='undef'"
$ WC "d_setlocale='" + d_setlocale + "'"
$ WC "d_setlocale_accepts_any_locale_name='" + d_setlocale_accepts_any_locale_name + "'"
$ WC "d_setnent='" + d_setnent + "'"
$ WC "d_setpent='" + d_setpent + "'"
configure.com view on Meta::CPAN
$ WC "d_trunc='" + d_trunc + "'"
$ WC "d_truncl='" + d_truncl + "'"
$ WC "d_tzname='" + d_tzname + "'"
$ WC "d_u32align='define'"
$ WC "d_ualarm='" + d_ualarm + "'"
$ WC "d_umask='define'"
$ WC "d_uname='" + d_uname + "'"
$ WC "d_union_semun='undef'"
$ WC "d_unlink_all_versions='" + d_unlink_all_versions + "'" ! VMS-specific
$ WC "d_unordered='undef'"
$ WC "d_unsetenv='" + d_unsetenv + "'"
$ WC "d_clearenv='" + d_clearenv + "'"
$ WC "d_usleep='" + d_usleep + "'"
$ WC "d_usleepproto='" + d_usleep + "'"
$ WC "d_ustat='undef'"
$ WC "d_vendorarch='undef'"
$ WC "d_vendorbin='undef'"
$ WC "d_vendorlib='undef'"
$ WC "d_vendorscript='undef'"
$ WC "d_vfork='define'"
$ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'" ! VMS
configure.com view on Meta::CPAN
$ IF use_two_pot_malloc THEN WC "#define TWO_POT_OPTIMIZE"
$ IF mymalloc THEN WC "#define EMBEDMYMALLOC"
$ IF use_pack_malloc THEN WC "#define PACK_MALLOC"
$ IF use_debugmalloc THEN WC "#define DEBUGGING_MSTATS"
$ IF (Has_Dec_C_Sockets)
$ THEN
$ WC "#define VMS_DO_SOCKETS"
$ WC "#define DECCRTL_SOCKETS"
$ ENDIF
$! This is VMS-specific for now
$ WC "#''d_setenv' HAS_SETENV"
$ IF d_secintgenv THEN WC "#define SECURE_INTERNAL_GETENV"
$ IF d_alwdeftype THEN WC "#define ALWAYS_DEFTYPES"
$ IF use64bitint .OR. use64bitint .EQS. "define"
$ THEN
$ WC "#define USE_64_BIT_INT"
$ ENDIF
$ IF uselongdouble .OR. uselongdouble .EQS. "define"
$ THEN
$ WC "#define USE_LONG_DOUBLE"
$ ENDIF
cpan/Pod-Simple/t/perlcyg.pod view on Meta::CPAN
=item Compiled Perl Source
EXTERN.h - __declspec(dllimport)
XSUB.h - __declspec(dllexport)
cygwin/cygwin.c - os_extras (getcwd, spawn)
perl.c - os_extras
perl.h - binmode
doio.c - win9x can not rename a file when it is open
pp_sys.c - do not define h_errno, pp_system with spawn
util.c - use setenv
=item Compiled Module Source
ext/POSIX/POSIX.xs - tzname defined externally
ext/SDBM_File/sdbm/pair.c
- EXTCONST needs to be redefined from EXTERN.h
ext/SDBM_File/sdbm/sdbm.c
- binary open
=item Perl Modules/Scripts
cpan/Pod-Simple/t/perlcygo.txt view on Meta::CPAN
(cache manager sometimes preserves ctime of file
previously created and deleted), no -u (setuid)
Compiled Perl Source
EXTERN.h - __declspec(dllimport)
XSUB.h - __declspec(dllexport)
cygwin/cygwin.c - os_extras (getcwd, spawn)
perl.c - os_extras
perl.h - binmode
doio.c - win9x can not rename a file when it is open
pp_sys.c - do not define h_errno, pp_system with spawn
util.c - use setenv
Compiled Module Source
ext/POSIX/POSIX.xs - tzname defined externally
ext/SDBM_File/sdbm/pair.c
- EXTCONST needs to be redefined from EXTERN.h
ext/SDBM_File/sdbm/sdbm.c
- binary open
Perl Modules/Scripts
lib/Cwd.pm - hook to internal Cwd::cwd
lib/ExtUtils/MakeMaker.pm
- require MM_Cygwin.pm
cpan/Time-Piece/Piece.xs view on Meta::CPAN
if (crt_tz_env == NULL)
crt_tz_env = "";
if (strcmp(perl_tz_env, crt_tz_env) != 0) {
STRLEN perl_tz_env_len = strlen(perl_tz_env);
newenv = (char*)malloc(perl_tz_env_len + 4);
if (newenv != NULL) {
/* putenv with old MS CRTs will cause a double free internally if you delete
an env var with the CRT env that doesn't exist in Win32 env (perl %ENV only
modifies the Win32 env, not CRT env), so always create the env var in Win32
env before deleting it with CRT env api, so the error branch never executes
in __crtsetenv after SetEnvironmentVariableA executes inside __crtsetenv.
VC 9/2008 and up dont have this bug, older VC (msvcrt80.dll and older) and
mingw (msvcrt.dll) have it see [perl #125529]
*/
#if !(_MSC_VER >= 1500)
if(!perl_tz_env_len)
SetEnvironmentVariableA("TZ", "");
#endif
sprintf(newenv, "TZ=%s", perl_tz_env);
putenv(newenv);
dist/Devel-PPPort/parts/base/5003007 view on Meta::CPAN
magic_getarylen # F added by devel/scanprov
magic_getpack # F added by devel/scanprov
magic_getpos # F added by devel/scanprov
magic_getsig # F added by devel/scanprov
magic_gettaint # F added by devel/scanprov
magic_getuvar # F added by devel/scanprov
magic_nextpack # F added by devel/scanprov
magic_set # F added by devel/scanprov
magic_setarylen # F added by devel/scanprov
magic_setdbline # F added by devel/scanprov
magic_setenv # F added by devel/scanprov
magic_setisa # F added by devel/scanprov
magic_setmglob # F added by devel/scanprov
magic_setnkeys # F added by devel/scanprov
magic_setpack # F added by devel/scanprov
magic_setpos # F added by devel/scanprov
magic_setsig # F added by devel/scanprov
magic_setsubstr # F added by devel/scanprov
magic_settaint # F added by devel/scanprov
magic_setuvar # F added by devel/scanprov
magic_setvec # F added by devel/scanprov
dist/Devel-PPPort/parts/base/5003007 view on Meta::CPAN
MINMOD # Z added by devel/scanprov
Mode_t # K added by devel/scanprov
modkids # F added by devel/scanprov
moreswitches # F added by devel/scanprov
Move # T
MSPAGAIN # Z added by devel/scanprov
my_chsize # F added by devel/scanprov
my_exit # T
my_pclose # T
my_popen # T
my_setenv # T
my_unexec # F added by devel/scanprov
NBOUND # Z added by devel/scanprov
New # Z added by devel/scanprov
newANONHASH # T
newANONLIST # T
newANONSUB # T
newASSIGNOP # T
newAV # T
newAVREF # T
newBINOP # T
dist/Devel-PPPort/parts/embed.fnc view on Meta::CPAN
pr |int |magic_regdatum_set|NN SV* sv|NN MAGIC* mg
#endif
p |int |magic_set |NN SV* sv|NN MAGIC* mg
p |int |magic_setarylen|NN SV* sv|NN MAGIC* mg
p |int |magic_cleararylen_p|NN SV* sv|NN MAGIC* mg
p |int |magic_freearylen_p|NN SV* sv|NN MAGIC* mg
p |int |magic_setdbline|NN SV* sv|NN MAGIC* mg
p |int |magic_setdebugvar|NN SV* sv|NN MAGIC* mg
p |int |magic_setdefelem|NN SV* sv|NN MAGIC* mg
p |int |magic_setnonelem|NN SV* sv|NN MAGIC* mg
p |int |magic_setenv |NN SV* sv|NN MAGIC* mg
dp |int |magic_sethint |NN SV* sv|NN MAGIC* mg
p |int |magic_setisa |NN SV* sv|NN MAGIC* mg
p |int |magic_setlvref |NN SV* sv|NN MAGIC* mg
p |int |magic_setmglob |NN SV* sv|NN MAGIC* mg
p |int |magic_freemglob|NN SV* sv|NN MAGIC* mg
p |int |magic_setnkeys |NN SV* sv|NN MAGIC* mg
p |int |magic_setpack |NN SV* sv|NN MAGIC* mg
p |int |magic_setpos |NN SV* sv|NN MAGIC* mg
p |int |magic_setregexp|NN SV* sv|NN MAGIC* mg
p |int |magic_setsigall|NN SV* sv|NN MAGIC* mg
dist/Devel-PPPort/parts/embed.fnc view on Meta::CPAN
m |I32 |my_lstat
pX |I32 |my_lstat_flags |NULLOK const U32 flags
#if ! defined(HAS_MEMRCHR) && (defined(PERL_CORE) || defined(PERL_EXT))
EeiT |void * |my_memrchr |NN const char * s|const char c|const STRLEN len
#endif
#if !defined(PERL_IMPLICIT_SYS)
Ap |I32 |my_pclose |NULLOK PerlIO* ptr
Ap |PerlIO*|my_popen |NN const char* cmd|NN const char* mode
#endif
Ap |PerlIO*|my_popen_list |NN const char* mode|int n|NN SV ** args
Apd |void |my_setenv |NULLOK const char* nam|NULLOK const char* val
m |I32 |my_stat
pX |I32 |my_stat_flags |NULLOK const U32 flags
Adfp |char * |my_strftime |NN const char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
: Used in pp_ctl.c
p |void |my_unexec
CbDTPR |UV |NATIVE_TO_NEED |const UV enc|const UV ch
CbDTPR |UV |ASCII_TO_NEED |const UV enc|const UV ch
ApR |OP* |newANONLIST |NULLOK OP* o
ApR |OP* |newANONHASH |NULLOK OP* o
Ap |OP* |newANONSUB |I32 floor|NULLOK OP* proto|NULLOK OP* block
dist/Devel-PPPort/parts/todo/5003007 view on Meta::CPAN
MUTABLE_PTR # T
MUTABLE_SV # T
mXPUSHi # T
mXPUSHn # T
mXPUSHp # T
mXPUSHs # T
mXPUSHu # T
my_exit # T
my_pclose # T
my_popen # T
my_setenv # T
my_sprintf # T
my_strlcat # T
my_strlcpy # T
my_strnlen # T
NATIVE_TO_LATIN1 # T
NATIVE_TO_UNI # T
newANONHASH # T
newANONLIST # T
newANONSUB # T
newASSIGNOP # T
p |int |magic_setarylen|NN SV *sv \
|NN MAGIC *mg
p |int |magic_setdbline|NN SV *sv \
|NN MAGIC *mg
p |int |magic_setdebugvar \
|NN SV *sv \
|NN MAGIC *mg
p |int |magic_setdefelem \
|NN SV *sv \
|NN MAGIC *mg
p |int |magic_setenv |NN SV *sv \
|NN MAGIC *mg
dp |int |magic_sethint |NN SV *sv \
|NN MAGIC *mg
p |int |magic_sethook |NULLOK SV *sv \
|NN MAGIC *mg
p |int |magic_sethookall \
|NN SV *sv \
|NN MAGIC *mg
p |int |magic_setisa |NN SV *sv \
|NN MAGIC *mg
m |I32 |my_lstat
Xp |I32 |my_lstat_flags |NULLOK const U32 flags
RTop |int |my_mkostemp_cloexec \
|NN char *templte \
|int flags
RTop |int |my_mkstemp_cloexec \
|NN char *templte
Cdp |PerlIO *|my_popen_list |NN const char *mode \
|int n \
|NN SV **args
Adp |void |my_setenv |NULLOK const char *nam \
|NULLOK const char *val
AMTdfpv |int |my_snprintf |NN char *buffer \
|const Size_t len \
|NN const char *format \
|...
CTdp |int |my_socketpair |int family \
|int type \
|int protocol \
|int fd[2]
# define mro_method_changed_in(a) Perl_mro_method_changed_in(aTHX_ a)
# define msbit_pos32 Perl_msbit_pos32
# define my_atof(a) Perl_my_atof(aTHX_ a)
# define my_atof3(a,b,c) Perl_my_atof3(aTHX_ a,b,c)
# define my_dirfd Perl_my_dirfd
# define my_exit(a) Perl_my_exit(aTHX_ a)
# define my_failure_exit() Perl_my_failure_exit(aTHX)
# define my_fflush_all() Perl_my_fflush_all(aTHX)
# define my_fork Perl_my_fork
# define my_popen_list(a,b,c) Perl_my_popen_list(aTHX_ a,b,c)
# define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b)
# define my_socketpair Perl_my_socketpair
# define my_strftime(a,b,c,d,e,f,g,h,i,j) Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j)
# define my_strtod Perl_my_strtod
# define newANONATTRSUB(a,b,c,d) Perl_newANONATTRSUB(aTHX_ a,b,c,d)
# define newANONHASH(a) Perl_newANONHASH(aTHX_ a)
# define newANONLIST(a) Perl_newANONLIST(aTHX_ a)
# define newANONSUB(a,b,c) Perl_newANONSUB(aTHX_ a,b,c)
# define newARGDEFELEMOP(a,b,c) Perl_newARGDEFELEMOP(aTHX_ a,b,c)
# define newASSIGNOP(a,b,c,d) Perl_newASSIGNOP(aTHX_ a,b,c,d)
# define newAVREF(a) Perl_newAVREF(aTHX_ a)
# define magic_nextpack(a,b,c) Perl_magic_nextpack(aTHX_ a,b,c)
# define magic_regdata_cnt(a,b) Perl_magic_regdata_cnt(aTHX_ a,b)
# define magic_regdatum_get(a,b) Perl_magic_regdatum_get(aTHX_ a,b)
# define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b)
# define magic_set(a,b) Perl_magic_set(aTHX_ a,b)
# define magic_set_all_env(a,b) Perl_magic_set_all_env(aTHX_ a,b)
# define magic_setarylen(a,b) Perl_magic_setarylen(aTHX_ a,b)
# define magic_setdbline(a,b) Perl_magic_setdbline(aTHX_ a,b)
# define magic_setdebugvar(a,b) Perl_magic_setdebugvar(aTHX_ a,b)
# define magic_setdefelem(a,b) Perl_magic_setdefelem(aTHX_ a,b)
# define magic_setenv(a,b) Perl_magic_setenv(aTHX_ a,b)
# define magic_sethint(a,b) Perl_magic_sethint(aTHX_ a,b)
# define magic_sethook(a,b) Perl_magic_sethook(aTHX_ a,b)
# define magic_sethookall(a,b) Perl_magic_sethookall(aTHX_ a,b)
# define magic_setisa(a,b) Perl_magic_setisa(aTHX_ a,b)
# define magic_setlvref(a,b) Perl_magic_setlvref(aTHX_ a,b)
# define magic_setmglob(a,b) Perl_magic_setmglob(aTHX_ a,b)
# define magic_setnkeys(a,b) Perl_magic_setnkeys(aTHX_ a,b)
# define magic_setnonelem(a,b) Perl_magic_setnonelem(aTHX_ a,b)
# define magic_setpack(a,b) Perl_magic_setpack(aTHX_ a,b)
# define magic_setpos(a,b) Perl_magic_setpos(aTHX_ a,b)
ext/File-Find/t/taint.t view on Meta::CPAN
($ENV{$_}) = $ENV{$_} =~ /(.*)/;
}
}
# Remove insecure directories from PATH
my @path;
my $sep = $Config{path_sep};
foreach my $dir (split(/\Q$sep/,$ENV{'PATH'}))
{
##
## Match the directory taint tests in mg.c::Perl_magic_setenv()
##
push(@path,$dir) unless (length($dir) >= 256
or
substr($dir,0,1) ne "/"
or
(stat $dir)[2] & 002);
}
$ENV{'PATH'} = join($sep,@path);
}
ext/VMS-Stdio/Stdio.xs view on Meta::CPAN
case RMS$_PRV:
set_errno(EACCES); break;
default:
set_errno(EVMSERR); break;
}
(void) sys$parse(&deffab,0,0); /* free up context */
XSRETURN(1);
}
sep = *defnam.nam$l_dir;
*defnam.nam$l_dir = '\0';
my_setenv("SYS$DISK",defnam.nam$b_node ? defnam.nam$l_node : defnam.nam$l_dev);
*defnam.nam$l_dir = sep;
dirdsc.dsc$a_pointer = defnam.nam$l_dir; dirdsc.dsc$w_length = defnam.nam$b_dir;
if ((retsts = sys$setddir(&dirdsc,0,0)) & 1) ST(0) = &PL_sv_yes;
else { set_errno(EVMSERR); set_vaxc_errno(retsts); }
(void) sys$parse(&deffab,0,0); /* free up context */
void
sync(fp)
PerlIO * fp
PROTOTYPE: $
hints/svr5.sh view on Meta::CPAN
d_suidsafe='define' # "./Configure -d" can't figure this out easily
################## final caveat msgs to builder ###############
cat <<'EOM' >&4
If you wish to use dynamic linking, you must use
LD_LIBRARY_PATH=`pwd`; export LD_LIBRARY_PATH
or
setenv LD_LIBRARY_PATH `pwd`
before running make.
If you are using shared libraries from /usr/local/lib
for libdbm or libgdbm you may need to set
LD_RUN_PATH=/usr/local/lib; export LD_RUN_PATH
in order for Configure to compile the simple test program
EOM
Perl_tovmsspec
Perl_tovmsspec_ts
Perl_tovmsspec_utf8
Perl_tovmsspec_utf8_ts
Perl_trim_unixpath
Perl_vms_case_tolerant
Perl_vms_do_aexec
Perl_vms_do_exec
Perl_vms_image_init
Perl_vms_realpath
Perl_vmssetenv
Perl_vmssetuserlnm
Perl_vmstrnenv
PerlIO_openn
));
}
elsif (PLATFORM eq 'os2') {
try_symbols(qw(
ctermid
get_sysinfo
Perl_OS2_init
{
MEM_SIZE l = strlen(s);
char *s1 = (char *)Perl_malloc(l+1);
return (char *)CopyD(s, s1, (MEM_SIZE)(l+1), char);
}
int
Perl_putenv(char *a)
{
/* Sometimes system's putenv conflicts with my_setenv() - this is system
malloc vs Perl's free(). */
dTHX;
char *var;
char *val = a;
MEM_SIZE l;
char buf[80];
while (*val && *val != '=')
val++;
if (!*val)
return -1;
l = val - a;
if (l < sizeof(buf))
var = buf;
else
var = (char *)Perl_malloc(l + 1);
Copy(a, var, l, char);
var[l + 1] = 0;
my_setenv(var, val+1);
if (var != buf)
Perl_mfree(var);
return 0;
}
MEM_SIZE
Perl_malloced_size(void *p)
{
union overhead * const ovp = (union overhead *)
((caddr_t)p - sizeof (union overhead) * CHUNK_SHIFT);
struct ufuncs * const uf = (struct ufuncs *)mg->mg_ptr;
PERL_ARGS_ASSERT_MAGIC_GETUVAR;
if (uf && uf->uf_val)
(*uf->uf_val)(aTHX_ uf->uf_index, sv);
return 0;
}
int
Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
{
STRLEN len = 0, klen;
const char *key;
const char *s = "";
SV *keysv = MgSV(mg);
if (keysv == NULL) {
key = mg->mg_ptr;
klen = mg->mg_len;
}
else {
if (!sv_utf8_downgrade(keysv, /* fail_ok */ TRUE)) {
ck_warner_d(packWARN(WARN_UTF8), "Wide character in %s", "setenv key (encoding to utf8)");
}
key = SvPV_const(keysv,klen);
}
PERL_ARGS_ASSERT_MAGIC_SETENV;
SvGETMAGIC(sv);
if (SvOK(sv)) {
/* defined environment variables are byte strings; unfortunately
there is no SvPVbyte_force_nomg(), so we must do this piecewise */
(void)SvPV_force_nomg_nolen(sv);
(void)sv_utf8_downgrade(sv, /* fail_ok */ TRUE);
if (SvUTF8(sv)) {
ck_warner_d(packWARN(WARN_UTF8), "Wide character in %s", "setenv");
SvUTF8_off(sv);
}
s = SvPVX(sv);
len = SvCUR(sv);
}
my_setenv(key, s); /* does the deed */
#ifdef DYNAMIC_ENV_FETCH
/* We just undefd an environment var. Is a replacement */
/* waiting in the wings? */
if (!len) {
SV ** const valp = hv_fetch(GvHVn(PL_envgv), key, klen, FALSE);
if (valp)
s = SvOK(*valp) ? SvPV_const(*valp, len) : "";
}
#endif
#endif /* neither OS2 nor WIN32 */
return 0;
}
int
Perl_magic_clearenv(pTHX_ SV *sv, MAGIC *mg)
{
PERL_ARGS_ASSERT_MAGIC_CLEARENV;
PERL_UNUSED_ARG(sv);
my_setenv(MgPV_nolen_const(mg),NULL);
return 0;
}
int
Perl_magic_set_all_env(pTHX_ SV *sv, MAGIC *mg)
{
PERL_ARGS_ASSERT_MAGIC_SET_ALL_ENV;
PERL_UNUSED_ARG(mg);
#if defined(VMS)
die("Can't make list assignment to %%ENV on this system");
#else
if (PL_localizing) {
HE* entry;
my_clearenv();
hv_iterinit(MUTABLE_HV(sv));
while ((entry = hv_iternext(MUTABLE_HV(sv)))) {
I32 keylen;
my_setenv(hv_iterkey(entry, &keylen),
SvPV_nolen_const(hv_iterval(MUTABLE_HV(sv), entry)));
}
}
#endif
return 0;
}
int
Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
{
mg_vtable.h view on Meta::CPAN
#ifdef USE_LOCALE_COLLATE
{ 0, Perl_magic_setcollxfrm, 0, 0, Perl_magic_freecollxfrm, 0, 0, 0 },
#else
{ 0, 0, 0, 0, 0, 0, 0, 0 },
#endif
{ 0, Perl_magic_setdbline, 0, 0, 0, 0, 0, 0 },
{ Perl_magic_getdebugvar, Perl_magic_setdebugvar, 0, 0, 0, 0, 0, 0 },
{ Perl_magic_getdefelem, Perl_magic_setdefelem, 0, 0, 0, 0, 0, 0 },
{ 0, 0, 0, 0, Perl_magic_freedestruct, 0, 0, 0 },
{ 0, Perl_magic_set_all_env, 0, Perl_magic_clear_all_env, 0, 0, 0, 0 },
{ 0, Perl_magic_setenv, 0, Perl_magic_clearenv, 0, 0, 0, 0 },
{ 0, 0, 0, Perl_magic_clearhints, 0, 0, 0, 0 },
{ 0, Perl_magic_sethint, 0, Perl_magic_clearhint, 0, 0, 0, 0 },
{ 0, Perl_magic_sethookall, 0, Perl_magic_clearhookall, 0, 0, 0, 0 },
{ 0, Perl_magic_sethook, 0, Perl_magic_clearhook, 0, 0, 0, 0 },
{ 0, Perl_magic_setisa, 0, Perl_magic_clearisa, 0, 0, 0, 0 },
{ 0, Perl_magic_setisa, 0, 0, 0, 0, 0, 0 },
{ 0, Perl_magic_setlvref, 0, 0, 0, 0, 0, 0 },
{ 0, Perl_magic_setmglob, 0, 0, Perl_magic_freemglob, 0, 0, 0 },
{ Perl_magic_getnkeys, Perl_magic_setnkeys, 0, 0, 0, 0, 0, 0 },
{ 0, Perl_magic_setnonelem, 0, 0, 0, 0, 0, 0 },
if (cnt)
croak("List form of piped open not implemented");
# ifdef TRYSHELL
res = popen(cmd, mode);
# else
char *shell = PerlEnv_getenv("EMXSHELL");
my_setenv("EMXSHELL", PL_sh_path);
res = popen(cmd, mode);
my_setenv("EMXSHELL", shell);
# endif
sv = *av_fetch(PL_fdpid, PerlIO_fileno(res), TRUE);
(void)SvUPGRADE(sv,SVt_IV);
SvIVX(sv) = -2; /* A cooky. */
return res;
#endif /* USE_POPEN */
}
PL_minus_c = TRUE;
s++;
return s;
case 'd':
forbid_setid('d', FALSE);
s++;
/* -dt indicates to the debugger that threads will be used */
if (*s == 't' && !isWORDCHAR(s[1])) {
++s;
my_setenv("PERL5DB_THREADED", "1");
}
/* The following permits -d:Mod to accepts arguments following an =
in the fashion that -MSome::Mod does. */
if (*s == ':' || *s == '=') {
const char *start;
const char *end;
SV *sv;
if (*++s == '-') {
while(isWORDCHAR(*s) || *s==':') ++s;
if (*s != '=')
sv_catpvn(sv, start, end - start);
else {
sv_catpvn(sv, start, s-start);
/* Don't use NUL as q// delimiter here, this string goes in the
* environment. */
sv_catpvf(sv, " split(/,/,q{%s});", ++s);
}
s = end;
my_setenv("PERL5DB", SvPV_nolen_const(sv));
SvREFCNT_dec(sv);
}
if (!PL_perldb) {
PL_perldb = PERLDB_ALL;
init_debugger();
}
return s;
case 'D':
{
#ifdef DEBUGGING
while ((entry = hv_iternext_flags(dups, 0))) {
STRLEN nlen;
const char *name = HePV(entry, nlen);
IV count = SvIV(HeVAL(entry));
IV i;
SV **valp = hv_fetch(hv, name, nlen, 0);
assert(valp);
/* try to remove any duplicate names, depending on the
* implementation used in my_setenv() the iteration might
* not be necessary, but let's be safe.
*/
for (i = 0; i < count; ++i)
my_setenv(name, 0);
/* and set it back to the value we set $ENV{name} to */
my_setenv(name, SvPV_nolen(*valp));
}
}
SvREFCNT_dec_NN(dups);
}
#endif /* USE_ENVIRON_ARRAY */
}
TAINT_NOT;
/* touch @F array to prevent spurious warnings 20020415 MJD */
if (PL_minus_a) {
/* These are not exact synonyms, since setpgrp() and getpgrp() may
have different behaviors, but perl.h used to define USE_BSDPGRP
(prior to 5.003_05) so some extension might depend on it.
*/
#if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
# ifndef USE_BSDPGRP
# define USE_BSDPGRP
# endif
#endif
/* This define exists only for compatibility. It used to mean "my_setenv and
* friends should use setenv/putenv, instead of manipulating environ directly",
* which is now always the case. It's still defined to prevent XS modules from
* using the no longer existing PL_use_safe_putenv variable.
*/
#define PERL_USE_SAFE_PUTENV
/* Control whether we set and test the stack high water mark.
*
* When enabled this checks that pp funcs and XSUBs properly EXTEND()
* the stack.
*
( run in 1.096 second using v1.01-cache-2.11-cpan-a1d94b6210f )