affect how Perl behaves at runtime.
B<NOTE:> There are pre-built Perl packages available for Cygwin and a
-version of Perl is provided on the Cygwin CD. If you have no need to
+version of Perl is provided on the Cygwin CD. If you do not need to
customize the configuration, consider using one of these packages:
http://cygutils.netpedia.net/
A recent net or commercial release of Cygwin is required.
-At the time this document was written, the port required recent
-development snapshots that were expected to stabilize early in 2000 and
-be released to the net as B21 and commercially as v1.1.
+At the time this document was written, Cygwin 1.1.1 was current.
B<NOTE:> At this point, minimal effort has been made to provide
compatibility with old (beta) Cygwin releases. The focus has been to
provide a high quality release and not worry about working around old
Cygwin bugs. If you wish to use Perl with Cygwin B20.1 or earlier,
-consider using either perl5.005_03 or perl5.005_62, which are available
-in source and binary form at C<http://cygutils.netpedia.net/> or on the
-Cygwin CD. If there is significant demand, a patch kit can be developed
-to port back to earlier Cygwin versions.
-
-=head2 Compiler
-
-A recent net or commercial release of I<gcc> is required.
-
-At the time this document was written, I<gcc-2.95.2> was current and
-could be downloaded from:
-
- ftp://ftp.xraylith.wisc.edu/pub/khan/gnu-win32/cygwin/gcc-2.95.2/
+consider using perl5.005_03, which is available in source and binary
+form at C<http://cygutils.netpedia.net/> or on the Cygwin CD. If there
+is significant demand, a patch kit can be developed to port back to
+earlier Cygwin versions.
=head2 Cygwin Configuration
B<NOTE:> The binaries that are built will run on all Win32 versions.
They do not depend on your host system (Win9x, WinNT) or your Cygwin
configuration (I<ntea>, I<ntsec>, binary/text mounts). The only
-dependencies come from hardcoded pathnames like C</usr/local>. However,
+dependencies come from hard-coded pathnames like C</usr/local>. However,
your host system and Cygwin configuration will affect Perl's runtime
-behavior (see L</"TEST">). Some regression tests may fail in different
-ways depending on your setup. For now, the test suite does not skip
-tests that do not make sense given a particular setup. If a test can
-pass in some Cygwin setup, it is left in and explainable test failures
-are documented.
+behavior (see L</"TEST">).
=over 4
versions of programs. Any Windows directories should be removed or
moved to the end of your C<PATH>.
-=item * F</bin/cat.exe>
-
-There should be an instance of I<cat> in F</bin> (or F</usr/bin>).
-Configure tests C<#!/bin/cat> and if it is not found, you will see
-the error:
-
- Configure: ./try: No such file or directory
-
-=item * F</usr/bin>
-
-If you do not have a F</usr/bin> directory, Configure will B<not> prompt
-you to install I<perl> into F</usr/bin>.
-
=item * I<nroff>
If you do not have I<nroff> (which is part of the I<groff> package),
-Configure will B<not> prompt you to install man pages.
+Configure will B<not> prompt you to install I<man> pages.
=item * Permissions
./Configure 2>&1 | tee log.configure
-If you are willing to accept all the defaults add a B<-d> option.
+If you are willing to accept all the defaults run Configure with B<-de>.
However, several useful customizations are available.
=head2 Strip Binaries
The DES based Ultra Fast Crypt port was done by Alexey Truhan:
- http://dome.weeg.uiowa.edu/pub/domestic/sos/cw32crypt-dist-0.tgz
+ ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/cw32crypt-dist-0.tgz
NOTE: There are various export restrictions on DES implementations,
see the glibc README for more details.
The MD5 port was done by Andy Piper:
- http://dome.weeg.uiowa.edu/pub/domestic/sos/libcrypt.tgz
-
-More information can also be found at:
-
- http://miracle.geol.msu.ru/sos/
+ ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/libcrypt.tgz
=item * C<-lgdbm> (C<use GDBM_File>)
A port of SysV IPC is available for Cygwin.
NOTE: This has B<not> been extensively tested. In particular,
-C<d_semctl_semun> is undefined because it fails a configure test and on
-Win9x the shm*() functions seem to hang.
+C<d_semctl_semun> is undefined because it fails a Configure test
+and on Win9x the I<shm*()> functions seem to hang. It also creates
+a compile time dependency because F<perl.h> includes F<<sys/ipc.h>>
+and F<<sys/sem.h>> (which will be required in the future when compiling
+CPAN modules).
=back
=item * Whoa There
-Cygwin does not yet implement chroot(), setegid() or seteuid()
-functionality, but has stub functions that return C<ENOSYS>. You will
-see a message when Configure detects that its guess conflicts with the
-hint file.
+Cygwin does not yet implement chroot() functionality, but has a stub
+function that returns C<ENOSYS>. You will see a message when Configure
+detects that its guess conflicts with the hint file.
*** WHOA THERE!!! ***
The recommended value for $d_chroot on this machine was "undef"!
You should keep the recommended value.
-=item * dlsym
+=item * I<dlsym()>
I<ld2> is needed to build dynamic libraries, but it does not exist
when dlsym() checking occurs (it is not created until `C<make>' runs).
You will see the following message:
Checking whether your dlsym() needs a leading underscore ...
+ ld2: not found
I can't compile and run the test program.
I'm guessing that dlsym doesn't need a leading underscore.
Since the guess is correct, this is not a problem.
-=item * Win9x and d_eofnblk
+=item * Win9x and C<d_eofnblk>
Win9x does not correctly report C<EOF> with a non-blocking read on a
closed pipe. You will see the following messages:
=head1 MAKE
-Simply run make and wait:
+Simply run I<make> and wait:
make 2>&1 | tee log.make
this is because the remainder of the `C<make>' refers to I<ld2> without
fully specifying its path and does this from multiple subdirectories.
The assumption is that $installbin is in your current C<PATH>. If this
-is not the case or if you do not have an I<install> program, `C<make>'
-will fail at some point. If this happens, just manually copy I<ld2>
-from the source directory to someplace in your C<PATH>.
+is not the case `C<make>' will fail at some point. If this happens,
+just manually copy I<ld2> from the source directory to somewhere in
+your C<PATH>.
=head1 TEST
running as `C<./perl harness>'.
Test results vary depending on your host system and your Cygwin
-configuration. It is possible that Cygwin will pass all the tests,
-but it is more likely that some tests will fail for one of these reasons.
+configuration. If a test can pass in some Cygwin setup, it is always
+attempted and explainable test failures are documented. It is possible
+that Perl will pass all the tests, but it is more likely that some tests
+will fail for one of these reasons.
=head2 File Permissions
UNIX file permissions are based on sets of mode bits for
-{read,write,execute} for each {user,group,other}. By default Cygwin only
-tracks the Win32 readonly attribute represented as the UNIX file user
-write bit (files are always readable, files are executable if they have
-a F<.{com,bat,exe}> extension or begin with C<#!>, directories are always
-readable and executable). On WinNT with the I<ntea> C<CYGWIN> setting,
-the remaining mode bits are stored as extended attributes. On WinNT
-with the I<ntsec> C<CYGWIN> setting, permissions use the standard WinNT
-security descriptors and access control lists. Without one of these
-options, these tests will fail:
+{read,write,execute} for each {user,group,other}. By default Cygwin
+only tracks the Win32 read-only attribute represented as the UNIX file
+user write bit (files are always readable, files are executable if they
+have a F<.{com,bat,exe}> extension or begin with C<#!>, directories are
+always readable and executable). On WinNT with the I<ntea> C<CYGWIN>
+setting, the additional mode bits are stored as extended file attributes.
+On WinNT with the I<ntsec> C<CYGWIN> setting, permissions use the standard
+WinNT security descriptors and access control lists. Without one of
+these options, these tests will fail:
Failed Test List of failed
------------------------------------
------------------------------------
op/taint.t 1, 3, 31, 37
-Alternatively, you can copy F<cygwin1.dll> into one of the Windows system
-directories (although, this is B<not> recommended).
+Alternatively, you can copy F<cygwin1.dll> into the directory where the
+tests run:
+
+ cp `type -p cygwin1.dll` t
+
+or one of the Windows system directories (although, this is B<not>
+recommended).
=head2 /etc/group
------------------------------------
op/grent.t 1
-=head2 Unexplained Failures
-
-Any additional tests that fail are likely due to bugs in Cygwin or the
-optional libraries. It is expected that by the time of the next net
-release most of these will be solved so they are not described here.
-
=head2 Script Portability
-Cygwin does an outstanding job of providing UNIX-like semantics on
-top of Win32 systems. However, in addition to the items noted above,
-there are some differences that you should know about. This is only a
-very brief guide to portability, more information can be found in the
-Cygwin documentation.
+Cygwin does an outstanding job of providing UNIX-like semantics on top of
+Win32 systems. However, in addition to the items noted above, there are
+some differences that you should know about. This is a very brief guide
+to portability, more information can be found in the Cygwin documentation.
=over 4
Cygwin pathnames can be separated by forward (F</>) or backward (F<\>)
slashes. They may also begin with drive letters (F<C:>) or Universal
Naming Codes (F<//UNC>). DOS device names (F<aux>, F<con>, F<prn>,
-F<com*>, F<lpt?>) are invalid as base filenames. However, they can be
-used in extensions (e.g., F<hello.aux>). Names may not contain these
-characters:
+F<com*>, F<lpt?>, F<nul>) are invalid as base filenames. However, they
+can be used in extensions (e.g., F<hello.aux>). Names may contain all
+printable characters except these:
: * ? " < > |
-File names are case insensitive, but case preserving. With the I<mixed>
-C<CYGWIN> setting, file names are mixed-case (although, directory names
-remain case insensitive).
-
-The I<mixed> setting is only available with the "coolview" version of
-F<cygwin1.dll> provided by Sergey Okhapkin at:
-
- ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/
+File names are case insensitive, but case preserving.
=item * Text/Binary
=item * F<.exe>
The Cygwin stat() makes the F<.exe> extension transparent by looking for
-a F<foo.exe> when you ask for F<foo> (unless a F<foo> also exists).
-Cygwin does not require a F<.exe> extension, but I<gcc> adds it
-automatically when building a program. However, when accessing an
-executable as a normal file (e.g., I<install> or I<cp> in a makefile)
-the F<.exe> is not transparent.
-
-NOTE: There is a version of I<install> that understands the F<.exe>
-semantics, it can be found at:
-
- ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Humblet_Pierre_A/
+F<foo.exe> when you ask for F<foo> (unless a F<foo> also exists). Cygwin
+does not require a F<.exe> extension, but I<gcc> adds it automatically
+when building a program. However, when accessing an executable as a
+normal file (e.g., I<cp> in a makefile) the F<.exe> is not transparent.
+The I<install> included with Cygwin automatically appends a F<.exe>
+when necessary.
=item * chown()
-On WinNT with the I<ntsec> C<CYGWIN> setting, chown() can change a file's
-user and group IDs. In all other configurations chown() is a no-op,
-although this is appropriate on Win9x since there is no security model.
+On WinNT chown() can change a file's user and group IDs. On Win9x chown()
+is a no-op, although this is appropriate since there is no security model.
=item * Miscellaneous
=head1 INSTALL
-This will install Perl, including man pages.
+This will install Perl, including I<man> pages.
make install | tee log.make-install
Changes Changes5.005 Changes5.004
AUTHORS MAINTAIN MANIFEST README.win32
pod/perl.pod pod/perlfaq3.pod pod/perlhist.pod pod/perlmodlib.pod
- pod/perlport.pod pod/perltoc.pod pod/perl5004delta.pod
+ pod/perlport.pod pod/perltoc.pod pod/perldelta.pod pod/perl5004delta.pod
=item Build, Configure, Make, Install
EXTERN.h - __declspec(dllimport)
XSUB.h - __declspec(dllexport)
- cygwin/cygwin.c - os_extras (getcwd)
+ 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_sys.c - do not define h_errno, pp_system with spawn
mg.c - environ WORKAROUND
unixish.h - environ WORKAROUND
util.c - environ WORKAROUND
=head1 BUGS
-Upon each start, I<make> warns that a rule for F<perlmain.o> is overridden
-(but there seems to be no better solution than adding an explicit define).
+When I<make> starts, it warns about overriding commands for F<perlmain.o>.
`C<make clean>' does not remove library F<.def> and F<.exe.stackdump>
files.
The I<ld2> script contains references to the source directory. You should
-change these to C</usr/local/bin> (or whatever) after install.
+change these to $installbin after `C<make install>'.
=head1 AUTHORS
-Charles Wilson E<lt>cwilson@ece.gatech.eduE<gt>,
-Eric Fifer E<lt>efifer@sanwaint.comE<gt>,
-alexander smishlajev E<lt>als@turnhere.comE<gt>,
-Steven Morlock E<lt>newspost@morlock.netE<gt>,
-Sebastien Barre E<lt>Sebastien.Barre@utc.frE<gt>,
-Teun Burgers E<lt>burgers@ecn.nlE<gt>.
+Charles Wilson <cwilson@ece.gatech.edu>,
+Eric Fifer <efifer@sanwaint.com>,
+alexander smishlajev <als@turnhere.com>,
+Steven Morlock <newspost@morlock.net>,
+Sebastien Barre <Sebastien.Barre@utc.fr>,
+Teun Burgers <burgers@ecn.nl>.
=head1 HISTORY
-Last updated: 1 March 2000
+Last updated: 5 May 2000
#include "XSUB.h"
#include <unistd.h>
+#include <process.h>
+/*
+ * pp_system() implemented via spawn()
+ * - more efficient and useful when embedding Perl in non-Cygwin apps
+ * - code mostly borrowed from djgpp.c
+ */
+static int
+do_spawnvp (const char *path, const char * const *argv)
+{
+ dTHXo;
+ Sigsave_t ihand,qhand;
+ int childpid, result, status;
+
+ rsignal_save(SIGINT, SIG_IGN, &ihand);
+ rsignal_save(SIGQUIT, SIG_IGN, &qhand);
+ childpid = spawnvp(_P_NOWAIT,path,argv);
+ if (childpid < 0) {
+ status = -1;
+ if(ckWARN(WARN_EXEC)) {
+ dTHR;
+ Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%s\": %s",
+ path,Strerror (errno));
+ }
+ } else {
+ do {
+ result = wait4pid(childpid, &status, 0);
+ } while (result == -1 && errno == EINTR);
+ if(result < 0)
+ status = -1;
+ }
+ (void)rsignal_restore(SIGINT, &ihand);
+ (void)rsignal_restore(SIGQUIT, &qhand);
+ return status;
+}
+
+int
+do_aspawn (SV *really, void **mark, void **sp)
+{
+ dTHXo;
+ int rc;
+ char **a,*tmps,**argv;
+ STRLEN n_a;
+
+ if (sp<=mark)
+ return -1;
+ a=argv=(char**) alloca ((sp-mark+3)*sizeof (char*));
+
+ while (++mark <= sp)
+ if (*mark)
+ *a++ = SvPVx(*mark, n_a);
+ else
+ *a++ = "";
+ *a = Nullch;
+
+ if (argv[0][0] != '/' && argv[0][0] != '\\'
+ && !(argv[0][0] && argv[0][1] == ':'
+ && (argv[0][2] == '/' || argv[0][2] != '\\'))
+ ) /* will swawnvp use PATH? */
+ TAINT_ENV(); /* testing IFS here is overkill, probably */
+
+ if (really && *(tmps = SvPV(really, n_a)))
+ rc=do_spawnvp (tmps,(const char * const *)argv);
+ else
+ rc=do_spawnvp (argv[0],(const char *const *)argv);
+
+ return rc;
+}
+
+int
+do_spawn (char *cmd)
+{
+ dTHXo;
+ char **a,*s,*metachars = "$&*(){}[]'\";\\?>|<~`\n";
+ const char *command[4];
+
+ while (*cmd && isSPACE(*cmd))
+ cmd++;
+
+ if (strnEQ (cmd,"/bin/sh",7) && isSPACE (cmd[7]))
+ cmd+=5;
+
+ /* save an extra exec if possible */
+ /* see if there are shell metacharacters in it */
+ if (strstr (cmd,"..."))
+ goto doshell;
+ if (*cmd=='.' && isSPACE (cmd[1]))
+ goto doshell;
+ if (strnEQ (cmd,"exec",4) && isSPACE (cmd[4]))
+ goto doshell;
+ for (s=cmd; *s && isALPHA (*s); s++) ; /* catch VAR=val gizmo */
+ if (*s=='=')
+ goto doshell;
+
+ for (s=cmd; *s; s++)
+ if (strchr (metachars,*s))
+ {
+ if (*s=='\n' && s[1]=='\0')
+ {
+ *s='\0';
+ break;
+ }
+ doshell:
+ command[0] = "sh";
+ command[1] = "-c";
+ command[2] = cmd;
+ command[3] = NULL;
+
+ return do_spawnvp("sh",command);
+ }
+
+ New (1303,PL_Argv,(s-cmd)/2+2,char*);
+ PL_Cmd=savepvn (cmd,s-cmd);
+ a=PL_Argv;
+ for (s=PL_Cmd; *s;) {
+ while (*s && isSPACE (*s)) s++;
+ if (*s)
+ *(a++)=s;
+ while (*s && !isSPACE (*s)) s++;
+ if (*s)
+ *s++='\0';
+ }
+ *a=Nullch;
+ if (!PL_Argv[0])
+ return -1;
+
+ return do_spawnvp(PL_Argv[0],(const char * const *)PL_Argv);
+}
/* see also Cwd.pm */
static
if(items != 0)
Perl_croak(aTHX_ "Usage: Cwd::cwd()");
- if(cwd = getcwd(NULL, 0)) {
+ if((cwd = getcwd(NULL, 0))) {
ST(0) = sv_2mortal(newSVpv(cwd, 0));
safesysfree(cwd);
XSRETURN(1);
projects / p5sagit/p5-mst-13.2.git / commitdiff