diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 01:29:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 01:29:33 +0000 |
| commit | 69fcd688e15822470f504b6986735ca63bc62068 (patch) | |
| tree | 338375970b24e2b13696af5f99275412c001ac59 | |
| parent | 5d23d6cde7d4284678e908dcee882c5f24dfa8f2 (diff) | |
| download | perl-69fcd688e15822470f504b6986735ca63bc62068.tar.gz | |
In Cygwin display the $ENV{CYGWIN} under perl -V, as suggested
by John Peacock. (Can be 'ntea' which means emulate UNIX file
attribute semantics as much as possible, or 'ntsec' which uses
native NTFS semantics.) (See also #10877.)
p4raw-id: //depot/perl@10875
| -rw-r--r-- | perl.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1152,7 +1152,12 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #endif sv_catpv(PL_Sv, "; \ $\"=\"\\n \"; \ -@env = map { \"$_=\\\"$ENV{$_}\\\"\" } sort grep {/^PERL/} keys %ENV; \ +@env = map { \"$_=\\\"$ENV{$_}\\\"\" } sort grep {/^PERL/} keys %ENV; "); +#ifdef __CYGWIN__ + sv_catpv(PL_Sv,"\ +push @env, \"CYGWIN=\\\"$ENV{CYGWIN}\\\"\";"); +#endif + sv_catpv(PL_Sv, "\ print \" \\%ENV:\\n @env\\n\" if @env; \ print \" \\@INC:\\n @INC\\n\";"); } |