diff options
| -rw-r--r-- | INSTALL | 6 | ||||
| -rw-r--r-- | MANIFEST | 8 | ||||
| -rwxr-xr-x | Porting/checkcfgvar.pl | 1 | ||||
| -rwxr-xr-x | Porting/perlhist_calculate.pl | 2 | ||||
| -rw-r--r-- | README.epoc | 154 | ||||
| -rw-r--r-- | doio.c | 2 | ||||
| -rw-r--r-- | epoc/config.sh | 1061 | ||||
| -rw-r--r-- | epoc/createpkg.pl | 41 | ||||
| -rw-r--r-- | epoc/epoc.c | 125 | ||||
| -rw-r--r-- | epoc/epoc_stubs.c | 18 | ||||
| -rw-r--r-- | epoc/epocish.c | 41 | ||||
| -rw-r--r-- | epoc/epocish.h | 158 | ||||
| -rw-r--r-- | epoc/link.pl | 25 | ||||
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 5 | ||||
| -rw-r--r-- | ext/Sys-Hostname/Hostname.pm | 6 | ||||
| -rw-r--r-- | lib/File/Find.pm | 5 | ||||
| -rw-r--r-- | lib/perl5db.pl | 8 | ||||
| -rw-r--r-- | perl.c | 8 | ||||
| -rw-r--r-- | perl.h | 17 | ||||
| -rw-r--r-- | plan9/mkfile | 2 | ||||
| -rw-r--r-- | pod/perl.pod | 1 | ||||
| -rw-r--r-- | pod/perldelta.pod | 8 | ||||
| -rw-r--r-- | pod/perlport.pod | 2 | ||||
| -rw-r--r-- | pp_sys.c | 12 | ||||
| -rw-r--r-- | t/io/fs.t | 2 | ||||
| -rw-r--r-- | t/io/inplace.t | 4 | ||||
| -rw-r--r-- | t/op/local.t | 2 | ||||
| -rw-r--r-- | t/op/magic.t | 2 | ||||
| -rw-r--r-- | util.c | 27 | ||||
| -rw-r--r-- | util.h | 4 | ||||
| -rw-r--r-- | win32/Makefile | 17 | ||||
| -rw-r--r-- | win32/makefile.mk | 17 |
32 files changed, 51 insertions, 1740 deletions
@@ -1716,7 +1716,7 @@ to avoid the BIND. Perl can be cross-compiled. It is just not trivial, cross-compilation rarely is. Perl is routinely cross-compiled for many platforms (as of -June 2005 at least PocketPC aka WinCE, Open Zaurus, EPOC, Symbian, and +June 2005 at least PocketPC aka WinCE, Open Zaurus, Symbian, and the IBM OS/400). These platforms are known as the B<target> platforms, while the systems where the compilation takes place are the B<host> platforms. @@ -1742,10 +1742,6 @@ README.ce Cross/README -=item EPOC - -README.epoc - =item Symbian README.symbian @@ -3636,13 +3636,6 @@ dump.c Debugging output embed.fnc Database used by embed.pl embed.h Maps symbols to safer names embedvar.h C namespace management -epoc/config.sh EPOC port config.sh template -epoc/createpkg.pl EPOC port generate PKG file -epoc/epoc.c EPOC port -epoc/epocish.c EPOC port -epoc/epocish.h EPOC port -epoc/epoc_stubs.c EPOC port -epoc/link.pl EPOC port link a exe ext/arybase/arybase.pm For $[ ext/arybase/arybase.xs For $[ ext/arybase/ptable.h For $[ @@ -4882,7 +4875,6 @@ README.cn Perl for Simplified Chinese (in EUC-CN) README.cygwin Perl notes for Cygwin README.dgux Perl notes for DG/UX README.dos Perl notes for DOS -README.epoc Perl notes for EPOC README.freebsd Perl notes for FreeBSD README.haiku Perl notes for Haiku README.hpux Perl notes for HP-UX diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index 26709a417c..3ebde3a2d1 100755 --- a/Porting/checkcfgvar.pl +++ b/Porting/checkcfgvar.pl @@ -46,7 +46,6 @@ my @CFG = ( # We can't base our check on $], because that's the version of the # perl that we are running, not the version of the source tree. "Cross/config.sh-arm-linux", - "epoc/config.sh", "NetWare/config.wc", "symbian/config.sh", "uconfig.sh", diff --git a/Porting/perlhist_calculate.pl b/Porting/perlhist_calculate.pl index 47a0d4dbf3..34841b9e72 100755 --- a/Porting/perlhist_calculate.pl +++ b/Porting/perlhist_calculate.pl @@ -147,7 +147,7 @@ sub calc_longtable { emit Configure => $configure_size, 1; - foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) { + foreach my $dir (qw(Cross djgpp emacs h2pl hints mad NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) { calc_dir($dir); } } diff --git a/README.epoc b/README.epoc deleted file mode 100644 index f5773506ff..0000000000 --- a/README.epoc +++ /dev/null @@ -1,154 +0,0 @@ -If you read this file _as_is_, just ignore the funny characters you -see. It is written in the POD format (see pod/perlpod.pod) which is -specially designed to be readable as is. - -=head1 NAME - -perlepoc - Perl for EPOC - -=head1 SYNOPSIS - -Perl 5 README file for the EPOC Release 5 operating system. - -=head1 INTRODUCTION - -EPOC is an OS for palmtops and mobile phones. For more information look -at: L<http://www.symbian.com/> - -This is a port of perl to the epocemx SDK by Eberhard Mattes, which -itself uses the SDK by symbian. Essentially epocemx it is a POSIX -look alike environment for the EPOC OS. For more information look at: -L<http://epocemx.sourceforge.net/> - -perl and epocemx runs on Epoc Release 5 machines: Psion 5mx, 5mx Pro, -Psion Revo, Psion Netbook and on the Ericsson M128. It may run on Epoc -Release 3 Hardware (Series 5 classic), too. For more information about -this hardware please refer to L<http://www.psion.com/> - -Vendors which like to have support for their devices are free to send -me a sample. - -=head1 INSTALLING PERL ON EPOC - -You can download a ready-to-install version from -L<http://www.oflebbe.de/perl/perl5.html> - -You will need at least ~6MB free space in order to install and run perl. - -Please install the emxusr.sis package from -L<http://epocemx.sourceforge.net/> first. - -Install perl.sis on the EPOC machine. If you do not know how to do -that, consult your PsiWin documentation. - -Perl itself and its standard library is using 4 MB disk space. -Unicode support and some other modules are left out. (For details, -please look into epoc/createpkg.pl). If you like to use these modules, -you are free to copy them from a current perl release. - -=head1 STARTING PERL ON EPOC - -Please use the epocemx shell to start perl. perl integrates with the -conventions of epocemx. - -=head2 Features of Perl on Epoc - -The built-in function EPOC::getcwd returns the current directory. - -=head2 Restrictions of Perl on Epoc - -Features are left out, because of restrictions of the POSIX support in -EPOC: - -=over 4 - -=item * - -socket IO is only implemented poorly. You can only use sysread and -syswrite on them. The commands read, write, print, <> do not work for -sockets. This may change iff epocemx supports sockets. - -=item * - -kill, alarm and signals. Do not try to use them. This may be -impossible to implement on EPOC. - -=item * - -select is missing. - -=item * - -binmode does not exist. (No CR LF to LF translation for text files) - -=item * - -EPOC does not handle the notion of current drive and current -directory very well (i.e. not at all, but it tries hard to emulate -one). See PATH. - -=item * - -Heap is limited to 4MB. - -=item * - -Dynamic loading is not implemented. - -=back - -=head2 Compiling Perl 5 on the EPOC cross compiling environment - -Sorry, this is far too short. - -=over 4 - -=item * - -You will need the epocemx SDK from Eberhard Mattes. - -=item * - -Get the Perl sources from your nearest CPAN site. - -=item * - -Unpack the sources. - -=item * - -Build a native perl from this sources... Make sure to save the -miniperl executable as miniperl.native. - -Start again from scratch - - cp epoc/* . - ./Configure -S - make - cp miniperl.native miniperl - touch miniperl.exe - make - perl createpkg.pl - - emxsis perl.pkg perl.sis - -=back - -=head1 SUPPORT STATUS OF PERL ON EPOC - -I'm offering this port "as is". You can ask me questions, but I can't -guarantee I'll be able to answer them. Since the port to epocemx is -quite new, please check the web for updates first. - -Very special thanks to Eberhard Mattes for epocemx. - -=head1 AUTHOR - -Olaf Flebbe <olaf@oflebbe.de> -L<http://www.oflebbe.de/perl/perl5.html> - -=head1 LAST UPDATE - -2003-01-18 - -=cut @@ -806,7 +806,7 @@ Perl_nextargv(pTHX_ register GV *gv) } #endif #ifdef HAS_RENAME -#if !defined(DOSISH) && !defined(__CYGWIN__) && !defined(EPOC) +#if !defined(DOSISH) && !defined(__CYGWIN__) if (PerlLIO_rename(PL_oldname,SvPVX_const(sv)) < 0) { Perl_ck_warner_d(aTHX_ packWARN(WARN_INPLACE), "Can't rename %s to %"SVf": %s, skipping file", diff --git a/epoc/config.sh b/epoc/config.sh deleted file mode 100644 index 2b6c8e4a30..0000000000 --- a/epoc/config.sh +++ /dev/null @@ -1,1061 +0,0 @@ -#!/bin/sh -# -# This file is manually maintained. -# -# It is NOT produced by running the Configure script. -# - -# Package name : perl5 -# Source directory : . -# Configuration time: -# Configured by : Olaf Flebbe -# Target system : EPOC - -Author='' -Date='$Date' -Header='' -Id='$Id' -Locker='' -Log='$Log' -RCSfile='$RCSfile' -Revision='$Revision' -Source='' -State='' -_a='.a' -_exe='.exe' -_o='.o' -afs='false' -afsroot='/afs' -alignbytes='8' -ansi2knr='' -aphostname='' -apirevision='' -apisubversion='' -apiversion='' -ar='arm-epoc-pe-ar' -archlib='/usr/lib/perl/5.17.6/epoc' -archlibexp='/usr/lib/perl/5.17.6/epoc' -archname64='' -archname='epoc' -archobjs='epoc.o epocish.o epoc_stubs.o' -asctime_r_proto='0' -awk='awk' -baserev='5.0' -bash='' -bin='' -binexp='' -bison='bison' -byacc='' -byteorder='1234' -c='' -castflags='0' -cat='cat' -cc='arm-epoc-pe-gcc -DEPOC' -cccdlflags='' -ccdlflags='' -ccflags='' -ccsymbols='' -cf_by='olaf' -cf_email='o.flebbe@gmx.de' -cf_time='Dec 2001' -charbits='8' -chgrp='' -chmod='' -chown='' -clocktype='' -comm='' -compress='' -contains='grep' -cp='cp' -cpio='' -cpp='arm-epoc-pe-cpp' -cpp_stuff='42' -cppccsymbols='EPOC=1' -cppflags='' -cpplast='-' -cppminus='-' -cpprun='arm-epoc-pe-gcc -E' -cppstdin='arm-epoc-pe-gcc -E' -cppsymbols='' -crypt_r_proto='0' -cryptlib='' -csh='csh' -ctermid_r_proto='0' -ctime_r_proto='0' -d_Gconvert='epoc_gcvt((x),(n),(b))' -d_PRIEUldbl='undef' -d_PRIFUldbl='undef' -d_PRIGUldbl='undef' -d_PRIXU64='undef' -d_PRId64='undef' -d_PRIeldbl='undef' -d_PRIfldbl='define' -d_PRIgldbl='define' -d_PRIi64='undef' -d_PRIo64='undef' -d_PRIu64='undef' -d_PRIx64='undef' -d_SCNfldbl='undef' -d__fwalk='undef' -d_access='undef' -d_accessx='undef' -d_aintl='undef' -d_alarm='undef' -d_archlib='define' -d_asctime64='undef' -d_asctime_r='undef' -d_atolf='undef' -d_atoll='undef' -d_attribute_deprecated='undef' -d_attribute_format='undef' -d_attribute_malloc='undef' -d_attribute_nonnull='undef' -d_attribute_noreturn='undef' -d_attribute_pure='undef' -d_attribute_unused='undef' -d_attribute_warn_unused_result='undef' -d_bcmp='define' -d_bcopy='define' -d_bsd='undef' -d_bsdgetpgrp='undef' -d_bsdsetpgrp='undef' -d_builtin_choose_expr='undef' -d_builtin_expect='undef' -d_bzero='define' -d_c99_variadic_macros='undef' -d_casti32='undef' -d_castneg='undef' -d_charvspr='undef' -d_chown='undef' -d_chroot='undef' -d_chsize='undef' -d_class='undef' -d_clearenv='define' -d_closedir='undef' -d_cmsghdr_s='undef' -d_const='define' -d_copysignl='undef' -d_cplusplus='undef' -d_crypt='undef' -d_crypt_r='undef' -d_csh='undef' -d_ctermid='undef' -d_ctermid_r='undef' -d_ctime64='undef' -d_ctime_r='undef' -d_cuserid='undef' -d_dbl_dig='undef' -d_dbminitproto='undef' -d_difftime64='undef' -d_difftime='define' -d_dir_dd_fd='undef' -d_dirfd='undef' -d_dirnamlen='undef' -d_dlerror='undef' -d_dlopen='undef' -d_dlsymun='undef' -d_dosuid='undef' -d_drand48_r='undef' -d_drand48proto='define' -d_dup2='undef' -d_eaccess='undef' -d_endgrent='undef' -d_endgrent_r='undef' -d_endhent='undef' -d_endhostent_r='undef' -d_endnent='undef' -d_endnetent_r='undef' -d_endpent='undef' -d_endprotoent_r='undef' -d_endpwent='undef' -d_endpwent_r='undef' -d_endsent='undef' -d_endservent_r='undef' -d_eofnblk='define' -d_eunice='undef' -d_faststdio='undef' -d_fchdir='undef' -d_fchmod='undef' -d_fchown='undef' -d_fcntl='undef' -d_fcntl_can_lock='undef' -d_fd_macros='undef' -d_fd_set='define' -d_fds_bits='undef' -d_fgetpos='define' -d_finite='undef' -d_finitel='undef' -d_flexfnam='define' -d_flock='undef' -d_flockproto='undef' -d_fork='undef' -d_fp_class='undef' -d_fpathconf='undef' -d_fpclass='undef' -d_fpclassify='undef' -d_fpclassl='undef' -d_fpos64_t='undef' -d_frexpl='undef' -d_fs_data_s='undef' -d_fseeko='undef' -d_fsetpos='define' -d_fstatfs='define' -d_fstatvfs='undef' -d_fsync='undef' -d_ftello='undef' -d_ftime='undef' -d_futimes='undef' -d_gdbm_ndbm_h_uses_prototypes='undef' -d_gdbmndbm_h_uses_prototypes='undef' -d_getaddrinfo='undef' -d_getcwd='define' -d_getespwnam='undef' -d_getfsstat='undef' -d_getgrent='undef' -d_getgrent_r='undef' -d_getgrgid_r='undef' -d_getgrnam_r='undef' -d_getgrps='undef' -d_gethbyaddr='define' -d_gethbyname='define' -d_gethent='undef' -d_gethname='undef' -d_gethostbyaddr_r='undef' -d_gethostbyname_r='undef' -d_gethostent_r='undef' -d_gethostprotos='define' -d_getitimer='undef' -d_getlogin='undef' -d_getlogin_r='undef' -d_getmnt='undef' -d_getmntent='undef' -d_getnameinfo='undef' -d_getnbyaddr='undef' -d_getnbyname='undef' -d_getnent='undef' -d_getnetbyaddr_r='undef' -d_getnetbyname_r='undef' -d_getnetent_r='undef' -d_getnetprotos='define' -d_getpagsz='undef' -d_getpbyname='define' -d_getpbynumber='define' -d_getpent='undef' -d_getpgid='undef' -d_getpgrp2='undef' -d_getpgrp='undef' -d_getppid='undef' -d_getprior='undef' -d_getprotobyname_r='undef' -d_getprotobynumber_r='undef' -d_getprotoent_r='undef' -d_getprotoprotos='define' -d_getprpwnam='undef' -d_getpwent='undef' -d_getpwent_r='undef' -d_getpwnam_r='undef' -d_getpwuid_r='undef' -d_getsbyname='undef' -d_getsbyport='undef' -d_getsent='undef' -d_getservbyname_r='undef' -d_getservbyport_r='undef' -d_getservent_r='undef' -d_getservprotos='define' -d_getspnam='undef' -d_getspnam_r='undef' -d_gettimeod='define' -d_gmtime64='undef' -d_gmtime_r='undef' -d_gnulibc='undef' -d_grpasswd='undef' -d_hasmntopt='undef' -d_htonl='define' -d_ilogbl='undef' -d_inc_version_list='undef' -d_index='undef' -d_inetaton='define' -d_inetntop='undef' -d_inetpton='undef' -d_int64_t='undef' -d_iovec_s='undef' -d_ip_mreq='undef' -d_ip_mreq_source='undef' -d_ipv6_mreq='undef' -d_ipv6_mreq_source='undef' -d_isascii='define' -d_isblank='undef' -d_isfinite='undef' -d_isinf='undef' -d_isnan='define' -d_isnanl='undef' -d_killpg='undef' -d_lchown='undef' -d_ldbl_dig='undef' -d_libm_lib_version='0' -d_link='undef' -d_llseek='undef' -d_localtime64='undef' -d_localtime_r='undef' -d_localtime_r_needs_tzset='undef' -d_locconv='undef' -d_lockf='undef' -d_longdbl='undef' -d_longlong='define' -d_lseekproto='define' -d_lstat='undef' -d_madvise='undef' -d_malloc_good_size='undef' -d_malloc_size='undef' -d_mblen='undef' -d_mbstowcs='undef' -d_mbtowc='undef' -d_memchr='define' -d_memcmp='define' -d_memcpy='define' -d_memmove='define' -d_memset='define' -d_mkdir='define' -d_mkdtemp='undef' -d_mkfifo='undef' -d_mkstemp='undef' -d_mkstemps='undef' -d_mktime64='undef' -d_mktime='define' -d_mmap='undef' -d_modfl='undef' -d_modfl_pow32_bug='undef' -d_modflproto='undef' -d_mprotect='undef' -d_msg='undef' -d_msg_ctrunc='undef' -d_msg_dontroute='undef' -d_msg_oob='undef' -d_msg_peek='undef' -d_msg_proxy='undef' -d_msgctl='undef' -d_msgget='undef' -d_msghdr_s='undef' -d_msgrcv='undef' -d_msgsnd='undef' -d_msync='undef' -d_munmap='undef' -d_mymalloc='undef' -d_ndbm_h_uses_prototypes='undef' -d_nice='undef' -d_nl_langinfo='undef' -d_nv_preserves_uv='define' -d_nv_zero_is_allbits_zero='undef' -d_off64_t='undef' -d_old_pthread_create_joinable='undef' -d_oldpthreads='undef' -d_oldsock='undef' -d_open3='define' -d_pathconf='undef' -d_pause='undef' -d_perl_otherlibdirs='undef' -d_phostname='undef' -d_pipe='undef' -d_poll='undef' -d_portable='undef' -d_prctl='undef' -d_prctl_set_name='undef' -d_printf_format_null='undef' -d_procselfexe='undef' -d_pseudofork='undef' -d_pthread_atfork='undef' -d_pthread_attr_setscope='undef' -d_pthread_yield='undef' -d_pwage='undef' -d_pwchange='undef' -d_pwclass='undef' -d_pwcomment='undef' -d_pwexpire='undef' -d_pwgecos='undef' -d_pwpasswd='undef' -d_pwquota='undef' -d_qgcvt='undef' -d_quad='define' -d_random_r='undef' -d_readdir64_r='undef' -d_readdir='define' -d_readdir_r='undef' -d_readlink='undef' -d_readv='undef' -d_recvmsg='undef' -d_rename='define' -d_rewinddir='define' -d_rmdir='define' -d_safebcpy='undef' -d_safemcpy='undef' -d_sanemcmp='define' -d_sbrkproto='undef' -d_scalbnl='undef' -d_sched_yield='undef' -d_scm_rights='undef' -d_seekdir='define' -d_select='undef' -d_sem='undef' -d_semctl='undef' -d_semctl_semid_ds='define' -d_semctl_semun='define' -d_semget='undef' -d_semop='undef' -d_sendmsg='undef' -d_setegid='undef' -d_seteuid='undef' -d_setgrent='undef' -d_setgrent_r='undef' -d_setgrps='undef' -d_sethent='undef' -d_sethostent_r='undef' -d_setitimer='undef' -d_setlinebuf='undef' -d_setlocale='undef' -d_setlocale_r='undef' -d_setnent='undef' -d_setnetent_r='undef' -d_setpent='undef' -d_setpgid='undef' -d_setpgrp2='undef' -d_setpgrp='undef' -d_setprior='undef' -d_setproctitle='undef' -d_setprotoent_r='undef' -d_setpwent='undef' -d_setpwent_r='undef' -d_setregid='undef' -d_setresgid='undef' -d_setresuid='undef' -d_setreuid='undef' -d_setrgid='undef' -d_setruid='undef' -d_setsent='undef' -d_setservent_r='undef' -d_setsid='undef' -d_setvbuf='undef' -d_sfio='undef' -d_shm='undef' -d_shmat='undef' -d_shmatprototype='undef' -d_shmctl='undef' -d_shmdt='undef' -d_shmget='undef' -d_sigaction='undef' -d_signbit='undef' -d_sigprocmask='undef' -d_sigsetjmp='undef' -d_sin6_scope_id='undef' -d_sitearch='undef' -d_snprintf='undef' -d_sockaddr_in6='undef' -d_sockaddr_sa_len='undef' -d_sockatmark='undef' -d_sockatmarkproto='undef' -d_socket='define' -d_socklen_t='undef' -d_sockpair='undef' -d_socks5_init='undef' -d_sprintf_returns_strlen='undef' -d_sqrtl='undef' -d_srand48_r='undef' -d_srandom_r='undef' -d_sresgproto='undef' -d_sresuproto='undef' -d_statblks='define' -d_statfs='undef' -d_statfs_f_flags='undef' -d_statfs_s='undef' -d_statfsflags='define' -d_static_inline='undef' -d_statvfs='undef' -d_stdio_cnt_lval='define' -d_stdio_ptr_lval='define' -d_stdio_ptr_lval_nochange_cnt='undef' -d_stdio_ptr_lval_sets_cnt='undef' -d_stdio_stream_array='undef' -d_stdiobase='undef' -d_stdstdio='undef' -d_strchr='define' -d_strcoll='define' -d_strctcpy='define' -d_strerrm='strerror(e)' -d_strerror='define' -d_strerror_r='undef' -d_strftime='define' -d_strlcat='undef' -d_strlcpy='undef' -d_strtod='define' -d_strtol='define' -d_strtold='undef' -d_strtoll='undef' -d_strtoq='undef' -d_strtoul='define' -d_strtoull='undef' -d_strtouq='undef' -d_strxfrm='define' -d_suidsafe='undef' -d_symlink='undef' -d_syscall='undef' -d_syscallproto='undef' -d_sysconf='define' -d_sysernlst='undef' -d_syserrlst='undef' -d_system='define' -d_tcgetpgrp='undef' -d_tcsetpgrp='undef' -d_telldir='define' -d_telldirproto='define' -d_time='undef' -d_timegm='undef' -d_times='undef' -d_tm_tm_gmtoff='undef' -d_tm_tm_zone='undef' -d_tmpnam_r='undef' -d_truncate='undef' -d_ttyname_r='undef' -d_tzname='undef' -d_u32align='define' -d_ualarm='undef' -d_umask='undef' -d_uname='undef' -d_union_semun='undef' -d_unordered='undef' -d_unsetenv='undef' -d_usleep='undef' -d_usleepproto='undef' -d_ustat='undef' -d_vendorarch='undef' -d_vendorlib='undef' -d_vfork='undef' -d_void_closedir='undef' -d_voidsig='undef' -d_voidtty='undef' -d_volatile='define' -d_vprintf='define' -d_vsnprintf='undef' -d_wait4='undef' -d_waitpid='undef' -d_wcstombs='undef' -d_wctomb='undef' -d_writev='undef' -d_xenix='undef' -date='date' -db_hashtype='undef' -db_prefixtype='undef' -db_version_major='0' -db_version_minor='0' -db_version_patch='0' -defvoidused='15' -direntrytype='struct dirent' -dlext='none' -dlsrc='dl_none.xs' -double='undef' -doublesize='8' -drand01='(rand()/(double)(1U<<RANDBITS))' -drand48_r_proto='0' -dtrace='' -dynamic_ext='' -eagain='EAGAIN' -ebcdic='undef' -echo='echo' -egrep='egrep' -emacs='' -endgrent_r_proto='0' -endhostent_r_proto='0' -endnetent_r_proto='0' -endprotoent_r_proto='0' -endpwent_r_proto='0' -endservent_r_proto='0' -eunicefix=':' -exe_ext='' -expr='expr' -extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode PerlIO/scalar Socket Storable Sys/Hostname Unicode/Storable attributes re' -fflushNULL='undef' -fflushall='define' -find='' -firstmakefile='makefile' -flex='' -fpostype='fpos_t' -freetype='void' -full_ar='arm-epoc-pe-ar' -full_csh='' -full_sed='/usr/bin/sed' -gccversion='' -getgrent_r_proto='0' -getgrgid_r_proto='0' -getgrnam_r_proto='0' -gethostbyaddr_r_proto='0' -gethostbyname_r_proto='0' -gethostent_r_proto='0' -getlogin_r_proto='0' -getnetbyaddr_r_proto='0' -getnetbyname_r_proto='0' -getnetent_r_proto='0' -getprotobyname_r_proto='0' -getprotobynumber_r_proto='0' -getprotoent_r_proto='0' -getpwent_r_proto='0' -getpwnam_r_proto='0' -getpwuid_r_proto='0' -getservbyname_r_proto='0' -getservbyport_r_proto='0' -getservent_r_proto='0' -getspnam_r_proto='0' -gidformat='"hu"' -gidsign='1' -gidsize='2' -gidtype='gid_t' -glibpth='' -gmtime_r_proto='0' -grep='grep' -groupcat='' -groupstype='gid_t' -gzip='gzip' -h_fcntl='' -h_sysfile='' -hint='' -hostcat='' -i16size='2' -i16type='short' -i32size='4' -i32type='int' -i64size='8' -i64type='long long' -i8size='1' -i8type='char' -i_arpainet='define' -i_assert='define' -i_bsdioctl='undef' -i_crypt='undef' -i_db='undef' -i_dbm='undef' -i_dirent='define' -i_dld='undef' -i_dlfcn='undef' -i_fcntl='define' -i_float='undef' -i_fp='undef' -i_fp_class='undef' -i_gdbm='undef' -i_gdbm_ndbm='undef' -i_gdbmndbm='undef' -i_grp='undef' -i_ieeefp='undef' -i_inttypes='undef' -i_langinfo='undef' -i_libutil='undef' -i_limits='define' -i_locale='undef' -i_machcthr='undef' -i_malloc='undef' -i_mallocmalloc='undef' -i_math='define' -i_memory='undef' -i_mntent='undef' -i_ndbm='undef' -i_netdb='define' -i_neterrno='undef' -i_netinettcp='define' -i_niin='define' -i_poll='undef' -i_prot='undef' -i_pthread='undef' -i_pwd='undef' -i_rpcsvcdbm='undef' -i_sfio='undef' -i_sgtty='undef' -i_shadow='undef' -i_socks='undef' -i_stdarg='define' -i_stdbool='undef' -i_stddef='define' -i_stdlib='define' -i_string='define' -i_sunmath='undef' -i_sysaccess='undef' -i_sysdir='undef' -i_sysfile='undef' -i_sysfilio='undef' -i_sysin='undef' -i_sysioctl='define' -i_syslog='undef' -i_sysmman='undef' -i_sysmode='undef' -i_sysmount='undef' -i_sysndir='undef' -i_sysparam='define' -i_syspoll='undef' -i_sysresrc='define' -i_syssecrt='undef' -i_sysselct='undef' -i_syssockio='undef' -i_sysstat='define' -i_sysstatfs='undef' -i_sysstatvfs='undef' -i_systime='define' -i_systimek='undef' -i_systimes='define' -i_systypes='define' -i_sysuio='undef' -i_sysun='undef' -i_sysutsname='undef' -i_sysvfs='undef' -i_syswait='define' -i_termio='undef' -i_termios='undef' -i_time='define' -i_unistd='define' -i_ustat='undef' -i_utime='undef' -i_values='undef' -i_varargs='undef' -i_varhdr='undef' -i_vfork='undef' -ignore_versioned_solibs='' -inc_version_list=' ' -inc_version_list_init='0' -incpath='' -inews='' -installarchlib='/home/of/PERL/perl/lib/5.17.6/epoc' -installbin='/home/of/PERL/System/Programs/' -installman1dir='/home/of/PERL/man1' -installman3dir='/home/of/PERL/man3' -installprefix='' -installprefixexp='' -installprivlib='/home/of/PERL/perl/lib/5.17.6/' -installscript='/home/of/PERL/bin/' -installsitearch='/home/of/PERL/site/lib/site_perl/5.17.6/epoc' -installsitelib='/home/of/PERL/perl/lib/site_perl/5.17.6' -installstyle='' -installusrbinperl='undef' -installvendorarch='' -installvendorlib='' -intsize='4' -issymlink='' -ivdformat='"ld"' -ivsize='4' -ivtype='int' -known_extensions='Data/Dumper File/Glob IO Socket Fcntl Sys/Hostname Errno' -ksh='' -ld='echo' -lddlflags='' -ldflags='-Wl,-heap,0x04000000' -ldlibpthname='' -less='' -lib_ext='' -libc='' -libperl='perl.a' -libpth='' -libs='' -libswanted='' -line='' -lint='' -lkflags='' -ln='ln' -lns='/bin/ln -s' -localtime_r_proto='0' -locincpth='' -loclibpth='' -longdblsize='8' -longlongsize='8' -longsize='4' -lp='' -lpr='' -ls='ls' -lseeksize='8' -lseektype='off_t' -mad='undef' -mail='' -mailx='' -make='make' -make_set_make='#' -mallocobj='' -mallocsrc='' -malloctype='void *' -man1='man1' -man1dir='' -man1direxp='' -man1ext='' -man2='man2' -man2ext='2' -man3='man3' -man3dir='' -man3direxp='' -man3ext='' -man4='man4' -man4ext='4' -man5='man5' -man5ext='5' -man6='man6' -man6ext='6' -man7='man7' -man7ext='7' -man8='man8' -man8ext='8' -mips='' -mips_type='' -mkdir='mkdir' -mmaptype='' -modetype='mode_t' -more='more' -multiarch='define' -mv='' -myarchname='epoc' -mydomain='.gmx.de' -myhostname='dragon' -myuname='' -n='-n' -need_va_copy='undef' -netdb_hlen_type='int' -netdb_host_type='const char *' -netdb_name_type='const char *' -netdb_net_type='int' -nm='arm-epoc-pe-nm' -nm_opt='' -nm_so_opt='' -nonxs_ext='Errno' -nroff='nroff' -nv_overflows_integers_at='0' -nv_preserves_uv_bits='32' -nveformat='"e"' -nvfformat='"f"' -nvgformat='"g"' -nvsize='16' -nvtype='double' -o_nonblock='O_NONBLOCK' -obj_ext='' -old_pthread_create_joinable='' -optimize='-fomit-frame-pointer -DNDEBUG -O' -orderlib='' -osname='epoc' -osvers='' -otherlibdirs='' -package='' -pager='' -passcat='' -patchlevel='' -path_sep=':' -perl='' -perl_static_inline='static' -perladmin='' -perlpath='' -pg='' -phostname='' -pidtype='pid_t' -plibpth='' -pmake='' -pr='' -prefix='' -prefixexp='' -privlib='/usr/lib/perl/5.17.6' -privlibexp='/usr/lib/perl/5.17.6' -procselfexe='' -prototype='define' -ptrsize='4' -quadkind='QUAD_IS_LONG_LONG' -quadtype='long long' -randbits='31' -randfunc='' -random_r_proto='0' -randseedtype='unsigned' -ranlib='arm-epoc-pe-ranlib' -rd_nodata='-1' -readdir64_r_proto='0' -readdir_r_proto='0' -revision='5' -rm='rm' -rmail='' -runnm='false' -sGMTIME_max='2147483647' -sGMTIME_min='0' -sLOCALTIME_max='2147483647' -sLOCALTIME_min='0' -sPRIEUldbl='' -sPRIFUldbl='' -sPRIGUldbl='' -sPRIXU64='' -sPRId64='' -sPRIeldbl='' -sPRIfldbl='"f"' -sPRIgldbl='"g"' -sPRIi64='' -sPRIo64='' -sPRIu64='' -sPRIx64='' -sSCNfldbl='' -sched_yield='' -scriptdir='' -scriptdirexp='' -sed='sed' -seedfunc='srand' -selectminbits='32' -selecttype='' -sendmail='' -setgrent_r_proto='0' -sethostent_r_proto='0' -setlocale_r_proto='0' -setnetent_r_proto='0' -setprotoent_r_proto='0' -setpwent_r_proto='0' -setservent_r_proto='0' -sh='/bin/sh' -shar='' -sharpbang='#!' -shmattype='' -shortsize='2' -shrpenv='' -shsharp='' -sig_name='' -sig_name_init='"ZERO", 0' -sig_num='0' -sig_num_init='0, 0' -sig_size='1' -signal_t='void' -sitearch='/usr/lib/perl/site_perl/5.17.6/epoc' -sitearchexp='/usr/lib/perl/site_perl/5.17.6/epoc' -sitelib='/usr/lib/perl/site_perl/5.17.6/' -sitelib_stem='/usr/lib/perl/site_perl' -sitelibexp='/usr/lib/perl/site_perl/5.17.6/' -siteprefix='' -siteprefixexp='' -sizesize='4' -sizetype='size_t' -sleep='' -smail='' -so='' -sockethdr='' -socketlib='' -socksizetype='int' -sort='sort' -spackage='' -spitshell='cat' -srand48_r_proto='0' -srandom_r_proto='0' -src='.' -ssizetype='long' -st_ino_sign='1' -st_ino_size='4' -startperl='' -startsh='#!/bin/sh' -static_ext='Data/Dumper File/Glob IO Socket Fcntl Sys/Hostname' -stdchar='char' -stdio_base='' -stdio_bufsiz='' -stdio_cnt='' -stdio_filbuf='' -stdio_ptr='' -stdio_stream_array='' -strerror_r_proto='0' -strings='' -submit='' -subversion='' -sysman='' -tail='' -tar='' -targetarch='' -tbl='' -tee='tee' -test='test' -timeincl='' -timetype='time_t' -tmpnam_r_proto='0' -touch='touch' -tr='tr' -trnl='\n' -troff='' -ttyname_r_proto='0' -u16size='2' -u16type='unsigned short' -u32size='4' -u32type='unsigned int' -u64size='8' -u64type='unsigned long long' -u8size='1' -u8type='unsigned char' -uidformat='"hu"' -uidsign='1' -uidsize='2' -uidtype='uid_t' -uname='uname' -uniq='uniq' -uquadtype='uint64_t' -use5005threads='undef' -use64bitall='undef' -use64bitint='undef' -usecrosscompile='define' -usedevel='undef' -usedl='undef' -usedtrace='undef' -usefaststdio='undef' -useithreads='undef' -usekernprocpathname='undef' -uselargefiles='undef' -uselongdouble='undef' -usemallocwrap='undef' -usemorebits='undef' -usemultiplicity='undef' -usemymalloc='n' -usenm='' -usensgetexecutablepath='undef' -useopcode='' -useperlio='undef' -useposix='' -usereentrant='undef' -userelocatableinc='undef' -usesfio='' -useshrplib='' -usesitecustomize='undef' -usesocks='undef' -usethreads='undef' -usevendorprefix='' -usevfork='' -usrinc='' -uuname='' -uvXUformat='"lX"' -uvoformat='"lo"' -uvsize='4' -uvtype='unsigned int' -uvuformat='"lu"' -uvxformat='"lx"' -vaproto='undef' -vendorarch='' -vendorarchexp='' -vendorlib='' -vendorlib_stem='' -vendorlibexp='' -vendorprefix='' -vendorprefixexp='' -version='5.17.6' -versiononly='undef' -vi='' -voidflags='15' -xlibpth='' -zcat='' -zip='' -# Configure command line arguments. -config_arg0='' -config_args='' -config_argc=11 -config_arg1='' -config_arg2='' -config_arg3='' -config_arg4='' -config_arg5='' -config_arg6='' -config_arg7='' -config_arg8='' -config_arg9='' -config_arg10='' -config_arg11='' -PERL_REVISION=5 -PERL_VERSION=17 -PERL_SUBVERSION=6 -PERL_API_REVISION=5 -PERL_API_VERSION=17 -PERL_API_SUBVERSION=6 -PERL_CONFIG_SH=true -CONFIGDOTSH=true -# Variables propagated from previous config.sh file. -pp_sys_cflags='' -epocish_cflags='ccflags="$cflags -xc++"' diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl deleted file mode 100644 index b4233c2dd5..0000000000 --- a/epoc/createpkg.pl +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl - -use File::Find; -use Cwd; - -$VERSION="5.17.6"; -$EPOC_VERSION=1; - - -sub filefound { - - my $f = $File::Find::name; - - return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i); - my $back = $f; - - my $psiback = $back; - - $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|; - $psiback =~ s|/|\\|g; - print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f ); -} - -open OUT,">perl.pkg"; - -print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n"; -print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n"; -print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n"; - -find(\&filefound, cwd.'/lib'); - -open IN, "<Artistic"; -open OUT, ">Artistic.txt"; -while (my $line = <IN>) { - chomp $line; - print OUT "$line\r\n"; -} - -close IN; -close OUT; - diff --git a/epoc/epoc.c b/epoc/epoc.c deleted file mode 100644 index 03b01341ee..0000000000 --- a/epoc/epoc.c +++ /dev/null @@ -1,125 +0,0 @@ -/* - * Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ - -#include <stdlib.h> -#include <string.h> -#include <stdio.h> -#include <sys/unistd.h> -#include <process.h> - - -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -int -do_spawn( char *cmd) { - dTHX; - return system( cmd); -} - -int -do_aspawn ( void *vreally, void **vmark, void **vsp) { - - dTHX; - - SV *really = (SV*)vreally; - SV **mark = (SV**)vmark; - SV **sp = (SV**)vsp; - - char **argv; - char *str; - char *p2, **ptr; - char *cmd; - - - int rc; - int index = 0; - - if (sp<=mark) - return -1; - - ptr = argv =(char**) malloc ((sp-mark+3)*sizeof (char*)); - - while (++mark <= sp) { - if (*mark && (str = SvPV_nolen(*mark))) - argv[index] = str; - else - argv[index] = ""; - } - argv[index++] = 0; - - cmd = strdup((const char*)(really ? SvPV_nolen(really) : argv[0])); - - rc = spawnvp( P_WAIT, cmd, argv); - free( argv); - free( cmd); - - return rc; -} - -static -XS(epoc_getcwd) /* more or less stolen from win32.c */ -{ - dXSARGS; - /* Make the host for current directory */ - char *buffer; - int buflen = 256; - - char *ptr; - buffer = (char *) malloc( buflen); - if (buffer == NULL) { - XSRETURN_UNDEF; - } - while ((NULL == ( ptr = getcwd( buffer, buflen))) && (errno == ERANGE)) { - buflen *= 2; - if (NULL == realloc( buffer, buflen)) { - XSRETURN_UNDEF; - } - - } - - /* - * If ptr != NULL - * then it worked, set PV valid, - * else return 'undef' - */ - - if (ptr) { - SV *sv = sv_newmortal(); - char *tptr; - - for (tptr = ptr; *tptr != '\0'; tptr++) { - if (*tptr == '\\') { - *tptr = '/'; - } - } - sv_setpv(sv, ptr); - free( buffer); - - EXTEND(SP,1); - SvPOK_on(sv); - ST(0) = sv; -#ifndef INCOMPLETE_TAINTS - SvTAINTED_on(ST(0)); -#endif - XSRETURN(1); - } - free( buffer); - XSRETURN_UNDEF; -} - - -void -Perl_init_os_extras(void) -{ - dTHX; - char *file = __FILE__; - newXS("EPOC::getcwd", epoc_getcwd, file); -} - diff --git a/epoc/epoc_stubs.c b/epoc/epoc_stubs.c deleted file mode 100644 index 2d1b09daf6..0000000000 --- a/epoc/epoc_stubs.c +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ - -int setgid() {return -1;} -int setuid() {return -1;} - -int execv() { return -1;} -int execvp() { return -1;} - -void Perl_do_exec() {} - - - diff --git a/epoc/epocish.c b/epoc/epocish.c deleted file mode 100644 index d457fffcb0..0000000000 --- a/epoc/epocish.c +++ /dev/null @@ -1,41 +0,0 @@ -/* - * Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ - -/* This is C++ Code !! */ - -#include <e32std.h> -#include <stdlib.h> -#include <estlib.h> -#include <string.h> - -extern "C" { - - -/* Workaround for defect strtoul(). Values with leading + are zero */ - -unsigned long int epoc_strtoul(const char *nptr, char **endptr, - int base) { - if (nptr && *nptr == '+') - nptr++; - return strtoul( nptr, endptr, base); -} - -void epoc_gcvt( double x, int digits, unsigned char *buf) { - TRealFormat trel; - - trel.iPlaces = digits; - trel.iPoint = TChar( '.'); - - TPtr result( buf, 80); - - result.Num( x, trel); - result.Append( TChar( 0)); - } -} - - diff --git a/epoc/epocish.h b/epoc/epocish.h deleted file mode 100644 index bd364ec563..0000000000 --- a/epoc/epocish.h +++ /dev/null @@ -1,158 +0,0 @@ -/* - * The following symbols are defined if your operating system supports - * functions by that name. All Unixes I know of support them, thus they - * are not checked by the configuration script, but are directly defined - * here. - */ - -/* HAS_IOCTL: - * This symbol, if defined, indicates that the ioctl() routine is - * available to set I/O characteristics - */ -#define HAS_IOCTL /**/ - -/* HAS_UTIME: - * This symbol, if defined, indicates that the routine utime() is - * available to update the access and modification times of files. - */ -/* #define HAS_UTIME / **/ - -/* HAS_GROUP - * This symbol, if defined, indicates that the getgrnam() and - * getgrgid() routines are available to get group entries. - * The getgrent() has a separate definition, HAS_GETGRENT. - */ -/* #define HAS_GROUP / **/ - -/* HAS_PASSWD - * This symbol, if defined, indicates that the getpwnam() and - * getpwuid() routines are available to get password entries. - * The getpwent() has a separate definition, HAS_GETPWENT. - */ -/* #define HAS_PASSWD / **/ - -/* #define HAS_KILL */ -#define HAS_WAIT - -/* USEMYBINMODE - * This symbol, if defined, indicates that the program should - * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure - * that a file is in "binary" mode -- that is, that no translation - * of bytes occurs on read or write operations. - */ -#undef USEMYBINMODE - -/* Stat_t: - * This symbol holds the type used to declare buffers for information - * returned by stat(). It's usually just struct stat. It may be necessary - * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed - * information. - */ -#define Stat_t struct stat - -/* USE_STAT_RDEV: - * This symbol is defined if this system has a stat structure declaring - * st_rdev - */ -#define USE_STAT_RDEV /**/ - -/* ACME_MESS: - * This symbol, if defined, indicates that error messages should be - * should be generated in a format that allows the use of the Acme - * GUI/editor's autofind feature. - */ -#undef ACME_MESS /**/ - -/* UNLINK_ALL_VERSIONS: - * This symbol, if defined, indicates that the program should arrange - * to remove all versions of a file if unlink() is called. This is - * probably only relevant for VMS. - */ -/* #define UNLINK_ALL_VERSIONS / **/ - -/* VMS: - * This symbol, if defined, indicates that the program is running under - * VMS. It is currently automatically set by cpps running under VMS, - * and is included here for completeness only. - */ -/* #define VMS / **/ - -/* ALTERNATE_SHEBANG: - * This symbol, if defined, contains a "magic" string which may be used - * as the first line of a Perl program designed to be executed directly - * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG - * begins with a character other then #, then Perl will only treat - * it as a command line if if finds the string "perl" in the first - * word; otherwise it's treated as the first line of code in the script. - * (IOW, Perl won't hand off to another interpreter via an alternate - * shebang sequence that might be legal Perl code.) - */ -/* #define ALTERNATE_SHEBANG "#!" / **/ - - -#define ABORT() abort(); - -/* - * fwrite1() should be a routine with the same calling sequence as fwrite(), - * but which outputs all of the bytes requested as a single stream (unlike - * fwrite() itself, which on some systems outputs several distinct records - * if the number_of_items parameter is >1). - */ -#define fwrite1 fwrite - -#define Stat(fname,bufptr) stat((fname),(bufptr)) -#define Fstat(fd,bufptr) fstat((fd),(bufptr)) -#define Fflush(fp) fflush(fp) -#define Mkdir(path,mode) mkdir((path),(mode)) - - -/* epocemx setenv bug workaround */ -#ifndef PERL_SYS_INIT_BODY -# define PERL_SYS_INIT_BODY(c,v) \ - MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); \ - PERLIO_INIT; MALLOC_INIT -#endif - -#ifndef PERL_SYS_TERM_BODY -#define PERL_SYS_TERM_BODY() PERLIO_TERM; MALLOC_TERM -#endif - -#define BIT_BUCKET "/dev/null" - -#define dXSUB_SYS - -/* getsockname returns the size of struct sockaddr_in *without* padding */ -#define BOGUS_GETNAME_RETURN 8 - -/* - read() on a socket is unimplemented in current epocemx - use recv() instead -*/ - -#define PERL_SOCK_SYSREAD_IS_RECV - -/* write ditto, use send */ -#define PERL_SOCK_SYSWRITE_IS_SEND - -/* No /dev/random available*/ - -#define PERL_NO_DEV_RANDOM - -/* - work around for buggy atof(): - atof() in ER5 stdlib depends on locale. -*/ - -#define strtoul(a,b,c) epoc_strtoul(a,b,c) - -#define init_os_extras Perl_init_os_extras - -#define ARG_MAX 4096 - -#define ECONNABORTED 0xdead - -/* For environ */ -#include <emx.h> -#define PERL_USE_SAFE_PUTENV - - diff --git a/epoc/link.pl b/epoc/link.pl deleted file mode 100644 index ab3bd652b4..0000000000 --- a/epoc/link.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w - -$epoc="/usr/local/epoc"; -@objs=@ARGV; -$basname=$objs[0]; -$basname =~ s/.o//; -$baspe = $basname . "pe"; - - -system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " . - "-o $baspe.exe $epoc/lib/eexe.o @objs " . - "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); - -system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " . - "--base-file $basname.bas $epoc/lib/eexe.o @objs " . - "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); - -system("arm-pe-ld -s -e _E32Startup $basname.exp " . - "-o $baspe.exe $epoc/lib/eexe.o @objs " . - "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); - -system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " . - "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " . - "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" "); - diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 02ac226701..941ee406e3 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker; use Config; use strict; -our $VERSION = "1.16"; +our $VERSION = "1.17"; my %err = (); my %wsa = (); @@ -125,9 +125,6 @@ sub get_files { } elsif ($^O eq 'os390') { # OS/390 C compiler doesn't generate #file or #line directives $file{'/usr/include/errno.h'} = 1; - } elsif ($Config{archname} eq 'epoc') { - # Watch out for cross compiling for EPOC (usually done on linux) - $file{'/usr/local/epocemx/epocsdk/include/libc/sys/errno.h'} = 1; } elsif ($Config{archname} eq 'arm-riscos') { # Watch out for cross compiling for RISC OS my $dep = `echo "#include <errno.h>" | gcc -E -M -`; diff --git a/ext/Sys-Hostname/Hostname.pm b/ext/Sys-Hostname/Hostname.pm index cdc1231ad5..4893f6a966 100644 --- a/ext/Sys-Hostname/Hostname.pm +++ b/ext/Sys-Hostname/Hostname.pm @@ -14,7 +14,7 @@ our $VERSION; our $host; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; { local $SIG{__DIE__}; eval { @@ -64,10 +64,6 @@ sub hostname { chomp($host = `hostname 2> NUL`) unless defined $host; return $host; } - elsif ($^O eq 'epoc') { - $host = 'localhost'; - return $host; - } else { # Unix # is anyone going to make it here? diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 1ebc98f56a..d1dbc52258 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -3,7 +3,7 @@ use 5.006; use strict; use warnings; use warnings::register; -our $VERSION = '1.22'; +our $VERSION = '1.23'; require Exporter; require Cwd; @@ -1104,8 +1104,7 @@ $File::Find::current_dir = File::Spec->curdir || '.'; $File::Find::dont_use_nlink = 1 if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos' || $Is_Win32 || - $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'epoc' || $^O eq 'qnx' || - $^O eq 'nto'; + $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'qnx' || $^O eq 'nto'; # Set dont_use_nlink in your hint file if your system's stat doesn't # report the number of links in a directory as an indication diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 24b85efbe2..705b920639 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1545,7 +1545,7 @@ We then determine what the console should be on various systems: Several other systems don't use a specific console. We C<undef $console> for those (Windows using a slave editor/graphical debugger, NetWare, OS/2 -with a slave editor, Epoc). +with a slave editor). =cut @@ -1568,11 +1568,6 @@ with a slave editor, Epoc). $console = undef; } - # EPOC also falls into the 'got to use STDIN' camp. - if ( $^O eq 'epoc' ) { - $console = undef; - } - =pod If there is a TTY hanging around from a parent, we use that as the console. @@ -8785,7 +8780,6 @@ my %_is_in_pods = (map { $_ => 1 } dsc ebcdic embed - epoc faq1 faq2 faq3 @@ -2151,7 +2151,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) if (xsinit) (*xsinit)(aTHX); /* in case linked C routines want magical variables */ #ifndef PERL_MICRO -#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) || defined(EPOC) || defined(SYMBIAN) +#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) || defined(SYMBIAN) init_os_extras(); #endif #endif @@ -3505,10 +3505,6 @@ S_minus_v(pTHX) PerlIO_printf(PIO_stdout, "BS2000 (POSIX) port by Start Amadeus GmbH, 1998-1999\n"); #endif -#ifdef EPOC - PerlIO_printf(PIO_stdout, - "EPOC port by Olaf Flebbe, 1999-2002\n"); -#endif #ifdef UNDER_CE PerlIO_printf(PIO_stdout, "WINCE port by Rainer Keuchel, 2001-2002\n" @@ -4448,7 +4444,7 @@ S_init_perllib(pTHX) S_incpush(aTHX_ STR_WITH_LEN("."), 0); } -#if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__) +#if defined(DOSISH) || defined(__SYMBIAN32__) # define PERLLIB_SEP ';' #else # if defined(VMS) @@ -91,8 +91,8 @@ /* Any stack-challenged places. The limit varies (and often * is configurable), but using more than a kilobyte of stack * is usually dubious in these systems. */ -#if defined(EPOC) || defined(__SYMBIAN32__) -/* EPOC/Symbian: need to work around the SDK features. * +#if defined(__SYMBIAN32__) +/* Symbian: need to work around the SDK features. * * On WINS: MS VC5 generates calls to _chkstk, * * if a "large" stack frame is allocated. * * gcc on MARM does not generate calls like these. */ @@ -516,11 +516,11 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER)); #define DOSISH 1 #endif -#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) || defined(EPOC) || defined(NETWARE) || defined(__SYMBIAN32__) +#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) || defined(NETWARE) || defined(__SYMBIAN32__) # define STANDARD_C 1 #endif -#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__DGUX) || defined(EPOC) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO) +#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__DGUX) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO) # define DONT_DECLARE_STD 1 #endif @@ -1012,7 +1012,7 @@ EXTERN_C int usleep(unsigned int); #define PERL_USES_PL_PIDSTATUS #endif -#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(EPOC) && !defined(__SYMBIAN32__) +#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(__SYMBIAN32__) #define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION #endif @@ -2628,11 +2628,6 @@ typedef SV PADNAME; # define ISHISH "vos" #endif -#if defined(EPOC) -# include "epocish.h" -# define ISHISH "epoc" -#endif - #ifdef __SYMBIAN32__ # include "symbian/symbianish.h" # define ISHISH "symbian" @@ -4030,7 +4025,7 @@ char *crypt (const char*, const char*); # ifndef getenv char *getenv (const char*); # endif /* !getenv */ -# if !defined(HAS_LSEEK_PROTO) && !defined(EPOC) && !defined(__hpux) +# if !defined(HAS_LSEEK_PROTO) && !defined(__hpux) # ifdef _FILE_OFFSET_BITS # if _FILE_OFFSET_BITS == 64 Off_t lseek (int,Off_t,int); diff --git a/plan9/mkfile b/plan9/mkfile index 51c682d2af..28d290b5e3 100644 --- a/plan9/mkfile +++ b/plan9/mkfile @@ -23,7 +23,7 @@ installman3dir = /sys/man/2 podnames = perl perlbook perldata perldebtut perldiag perldsc perlform perlfunc perlipc perllexwarn perllol perlmod perlmodlib perlmodinstall perlnewmod perlop perlootut perlopentut perlpacktut perlpod perlport perlrequick perlretut perlref perlreftut perlrequick perlrun perlsec perlstyle perlsub perlsyn perltie perltrap perlutil perlunifaq perluniintro perlvar faqpodnames = perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5 perlfaq6 perlfaq7 perlfaq8 perlfaq9 advpodnames = perlapi perlapio perlcall perlclib perlcompile perldebguts perldbmfilter perldebug perldelta perldiag perlebcdic perlembed perlfilter perlfork perlguts perlhack perlintern perliol perllocale perlnumber perlobj perlpodspec perlre perlthrtut perltodo perlunicode perlxs perlxs perlxstut -archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlepoc perlfreebsd perlhpux perlhurd perlirix perlmacos perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perlvms perlvos perlwin32 +archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlfreebsd perlhpux perlhurd perlirix perlmacos perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perlvms perlvos perlwin32 histpods = perl5004delta perl5005delta perl561delta perl56delta perl570delta perl571delta perl572delta perl573delta perl58delta perlhist libpods = ${podnames:%=pod/%.pod} diff --git a/pod/perl.pod b/pod/perl.pod index a1bac94d21..142ce74c5f 100644 --- a/pod/perl.pod +++ b/pod/perl.pod @@ -239,7 +239,6 @@ aux a2p c2ph h2ph h2xs perlbug pl2pm pod2html pod2man s2p splain xsubpp perlcygwin Perl notes for Cygwin perldgux Perl notes for DG/UX perldos Perl notes for DOS - perlepoc Perl notes for EPOC perlfreebsd Perl notes for FreeBSD perlhaiku Perl notes for Haiku perlhpux Perl notes for HP-UX diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 314177fdec..ddaa189401 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -321,13 +321,13 @@ XXX =head2 Discontinued Platforms -XXX List any platforms that this version of perl no longer compiles on. - =over 4 -=item XXX-some-platform +=item EPOC -XXX +Support code relating to EPOC has been removed. EPOC was a family of +operating systems developed by Psion for mobile devices. It was the +predecessor of Symbian. The port was last updated in April 2002. =back diff --git a/pod/perlport.pod b/pod/perlport.pod index 110c9a2b77..1c20791852 100644 --- a/pod/perlport.pod +++ b/pod/perlport.pod @@ -2308,7 +2308,7 @@ L<http://www.cpan.org/ports/index.html> for binary distributions. =head1 SEE ALSO L<perlaix>, L<perlamiga>, L<perlbeos>, L<perlbs2000>, -L<perlce>, L<perlcygwin>, L<perldgux>, L<perldos>, L<perlepoc>, +L<perlce>, L<perlcygwin>, L<perldgux>, L<perldos>, L<perlebcdic>, L<perlfreebsd>, L<perlhurd>, L<perlhpux>, L<perlirix>, L<perlmacos>, L<perlmacosx>, L<perlnetware>, L<perlos2>, L<perlos390>, L<perlos400>, @@ -1685,10 +1685,6 @@ PP(pp_sysread) /* MSG_TRUNC can give oversized count; quietly lose it */ if (count > length) count = length; -#ifdef EPOC - /* Bogus return without padding */ - bufsize = sizeof (struct sockaddr_in); -#endif SvCUR_set(bufsv, count); *SvEND(bufsv) = '\0'; (void)SvPOK_only(bufsv); @@ -2405,10 +2401,6 @@ PP(pp_socket) fcntl(fd, F_SETFD, fd > PL_maxsysfd); /* ensure close-on-exec */ #endif -#ifdef EPOC - setbuf( IoIFP(io), NULL); /* EPOC gets confused about sockets */ -#endif - RETPUSHYES; } #endif @@ -2575,10 +2567,6 @@ PP(pp_accept) fcntl(fd, F_SETFD, fd > PL_maxsysfd); /* ensure close-on-exec */ #endif -#ifdef EPOC - len = sizeof (struct sockaddr_in); /* EPOC somehow truncates info */ - setbuf( IoIFP(nstio), NULL); /* EPOC gets confused about sockets */ -#endif #ifdef __SCO_VERSION__ len = sizeof (struct sockaddr_in); /* OpenUNIX 8 somehow truncates info */ #endif @@ -72,7 +72,7 @@ chdir $tmpdir; umask(022); SKIP: { - skip "bogus umask", 1 if ($^O eq 'MSWin32') || ($^O eq 'NetWare') || ($^O eq 'epoc'); + skip "bogus umask", 1 if ($^O eq 'MSWin32') || ($^O eq 'NetWare'); is((umask(0)&0777), 022, 'umask'), } diff --git a/t/io/inplace.t b/t/io/inplace.t index ed85dacd57..5cb56b9951 100644 --- a/t/io/inplace.t +++ b/t/io/inplace.t @@ -35,9 +35,9 @@ is ( runperl( prog => 'print<>;', args => \@tfiles_bak ), SKIP: { - # based on code, dosish and epoc systems can't do no-backup inplace + # based on code, dosish systems can't do no-backup inplace # edits - $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc|os2)$/ + $^O =~ /^(MSWin32|cygwin|uwin|dos|os2)$/ and skip("Can't inplace edit without backups on $^O", 4); our @ifiles = ( tempfile(), tempfile(), tempfile() ); diff --git a/t/op/local.t b/t/op/local.t index 3b9b0212ed..706a1bfbc9 100644 --- a/t/op/local.t +++ b/t/op/local.t @@ -9,7 +9,7 @@ plan tests => 310; my $list_assignment_supported = 1; -#mg.c says list assignment not supported on VMS, EPOC, and SYMBIAN. +#mg.c says list assignment not supported on VMS and SYMBIAN. $list_assignment_supported = 0 if ($^O eq 'VMS'); diff --git a/t/op/magic.t b/t/op/magic.t index 1bcfbd9aed..795124b7a7 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -516,7 +516,7 @@ is "@+", "10 1 6 10"; } # Test for bug [perl #36434] -# Can not do this test on VMS, EPOC, and SYMBIAN according to comments +# Can not do this test on VMS, and SYMBIAN according to comments # in mg.c/Perl_magic_clear_all_env() SKIP: { skip('Can\'t make assignment to \%ENV on this system', 3) if $Is_VMS; @@ -1947,7 +1947,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val) my_setenv_format(environ[i], nam, nlen, val, vlen); } else { # endif -# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__) +# if defined(__CYGWIN__)|| defined(__SYMBIAN32__) || defined(__riscos__) # if defined(HAS_UNSETENV) if (val == NULL) { (void)unsetenv(nam); @@ -2011,7 +2011,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val) #endif /* WIN32 || NETWARE */ -#endif /* !VMS && !EPOC*/ +#endif /* !VMS */ #ifdef UNLINK_ALL_VERSIONS I32 @@ -2494,7 +2494,7 @@ Perl_my_swabn(void *ptr, int n) PerlIO * Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args) { -#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(EPOC) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__) +#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__) dVAR; int p[2]; I32 This, that; @@ -2631,7 +2631,7 @@ Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args) } /* VMS' my_popen() is in VMS.c, same with OS/2. */ -#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(EPOC) && !defined(__LIBCATAMOUNT__) +#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__LIBCATAMOUNT__) PerlIO * Perl_my_popen(pTHX_ const char *cmd, const char *mode) { @@ -2778,20 +2778,6 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode) return PerlIO_fdopen(p[This], mode); } #else -#if defined(EPOC) -FILE *popen(); -PerlIO * -Perl_my_popen(pTHX_ const char *cmd, const char *mode) -{ - PERL_ARGS_ASSERT_MY_POPEN; - PERL_FLUSHALL_FOR_CHILD; - /* Call system's popen() to get a FILE *, then import it. - used 0 for 2nd parameter to PerlIO_importFILE; - apparently not used - */ - return PerlIO_importFILE(popen(cmd, mode), 0); -} -#else #if defined(DJGPP) FILE *djgpp_popen(); PerlIO * @@ -2813,7 +2799,6 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode) } #endif #endif -#endif #endif /* !DOSISH */ @@ -3073,7 +3058,7 @@ Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save) #endif /* !PERL_MICRO */ /* VMS' my_pclose() is in VMS.c; same with OS/2 */ -#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(EPOC) && !defined(__LIBCATAMOUNT__) +#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__LIBCATAMOUNT__) I32 Perl_my_pclose(pTHX_ PerlIO *ptr) { @@ -3237,7 +3222,7 @@ S_pidgone(pTHX_ Pid_t pid, int status) } #endif -#if defined(OS2) || defined(EPOC) +#if defined(OS2) int pclose(); #ifdef HAS_FORK int /* Cannot prototype with I32 @@ -27,11 +27,11 @@ || ((f)[0] == '\\' && (f)[1] == '\\') /* UNC path */ \ || ((f)[3] == ':')) /* volume name, currently only sys */ # else /* !NETWARE */ -# if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__) +# if defined(DOSISH) || defined(__SYMBIAN32__) # define PERL_FILE_IS_ABSOLUTE(f) \ (*(f) == '/' \ || ((f)[0] && (f)[1] == ':')) /* drive name */ -# else /* NEITHER DOSISH NOR EPOCISH NOR SYMBIANISH */ +# else /* NEITHER DOSISH NOR SYMBIANISH */ # define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/') # endif /* DOSISH */ # endif /* NETWARE */ diff --git a/win32/Makefile b/win32/Makefile index 40c67683de..46715c93cd 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -1131,7 +1131,6 @@ utils: $(PERLEXE) $(X2P) copy ..\README.cygwin ..\pod\perlcygwin.pod copy ..\README.dgux ..\pod\perldgux.pod copy ..\README.dos ..\pod\perldos.pod - copy ..\README.epoc ..\pod\perlepoc.pod copy ..\README.freebsd ..\pod\perlfreebsd.pod copy ..\README.haiku ..\pod\perlhaiku.pod copy ..\README.hpux ..\pod\perlhpux.pod @@ -1251,14 +1250,14 @@ distclean: realclean -cd $(PODDIR) && del /f *.html *.bat roffitall \ perl5176delta.pod perlaix.pod perlamiga.pod perlapi.pod \ perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \ - perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \ - perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ - perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ - perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \ - perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \ - perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \ - perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \ - perluniprops.pod perlvos.pod perlwin32.pod + perlcygwin.pod perldgux.pod perldos.pod perlfreebsd.pod \ + perlhaiku.pod perlhpux.pod perlhurd.pod perlintern.pod \ + perlirix.pod perljp.pod perlko.pod perllinux.pod perlmacos.pod \ + perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \ + perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \ + perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \ + perltoc.pod perltru64.pod perltw.pod perluniprops.pod \ + perlvos.pod perlwin32.pod -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \ perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \ xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep cpanp-run-perl cpanp cpan2dist shasum corelist config_data zipdetails diff --git a/win32/makefile.mk b/win32/makefile.mk index aa3b880909..8c5be976b6 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -1311,7 +1311,6 @@ utils: $(PERLEXE) $(X2P) copy ..\README.cygwin ..\pod\perlcygwin.pod copy ..\README.dgux ..\pod\perldgux.pod copy ..\README.dos ..\pod\perldos.pod - copy ..\README.epoc ..\pod\perlepoc.pod copy ..\README.freebsd ..\pod\perlfreebsd.pod copy ..\README.haiku ..\pod\perlhaiku.pod copy ..\README.hpux ..\pod\perlhpux.pod @@ -1430,14 +1429,14 @@ distclean: realclean -cd $(PODDIR) && del /f *.html *.bat roffitall \ perl5176delta.pod perlaix.pod perlamiga.pod perlapi.pod \ perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \ - perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \ - perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ - perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ - perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \ - perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \ - perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \ - perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \ - perluniprops.pod perlvos.pod perlwin32.pod + perlcygwin.pod perldgux.pod perldos.pod perlfreebsd.pod \ + perlhaiku.pod perlhpux.pod perlhurd.pod perlintern.pod \ + perlirix.pod perljp.pod perlko.pod perllinux.pod perlmacos.pod \ + perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \ + perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \ + perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \ + perltoc.pod perltru64.pod perltw.pod perluniprops.pod \ + perlvos.pod perlwin32.pod -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \ perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \ xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep cpanp-run-perl cpanp cpan2dist shasum corelist config_data zipdetails |