summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorAlexander Smishlajev <als@turnhere.com>1999-04-25 17:58:29 +0300
committerGurusamy Sarathy <gsar@cpan.org>1999-05-10 04:39:15 +0000
commit8736538c3cff6585c95a01b990d3b3a9e5d5744d (patch)
treea62ec1da701a15abcbfdff76f248259b80548f1a /pp_hot.c
parent3eeba6fb8b434fcb27f601771baa0ea98f44d487 (diff)
downloadperl-8736538c3cff6585c95a01b990d3b3a9e5d5744d.tar.gz
cygwin32 update (untested adaptation of patch against 5.005_03)
Message-ID: <37230365.5F68B460@turnhere.com> Subject: [PATCH]5.005_03 (CORE) cygwin32 port p4raw-id: //depot/perl@3358
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 3a46861453..d49ec3d72d 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1232,9 +1232,15 @@ do_readline(void)
sv_setpv(tmpcmd, "/dev/dosglob/"); /* File System Extension */
sv_catsv(tmpcmd, tmpglob);
#else
+#ifdef CYGWIN32
+ sv_setpv(tmpcmd, "for a in ");
+ sv_catsv(tmpcmd, tmpglob);
+ sv_catpv(tmpcmd, "; do echo -e \"$a\\0\\c\"; done |");
+#else
sv_setpv(tmpcmd, "perlglob ");
sv_catsv(tmpcmd, tmpglob);
sv_catpv(tmpcmd, " |");
+#endif /* !CYGWIN */
#endif /* !DJGPP */
#endif /* !OS2 */
#else /* !DOSISH */