diff options
| author | Michael Schwern <schwern@pobox.com> | 2002-12-19 00:00:00 -0800 |
|---|---|---|
| committer | Michael Schwern <schwern@pobox.com> | 2002-12-19 00:00:00 -0800 |
| commit | de64de47f7150f9a23ee0bb6d23c1082e8c5e551 (patch) | |
| tree | d7e8204a6844a4ed5fb571da6a0c47a637af53b8 /perly.c | |
| parent | a4de7c03d0bdc29d9d3a18abad4ac2628182ed7b (diff) | |
| download | perl-1.0.15.tar.gz | |
Perl 1.0.15perl-1.0.15
As a birthday present to Perl and Larry, through the work of the
perl1-porters, in particular Richard Clamp, resurrected here is Perl 1.0
with minimal patches for modern machines.
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -51,7 +51,8 @@ register char **env; #endif case 'e': if (!e_fp) { - mktemp(e_tmpname); + e_tmpname = (char*) strdup(e_tmpname); + mkstemp(e_tmpname); e_fp = fopen(e_tmpname,"w"); } if (argv[1]) @@ -120,7 +121,7 @@ register char **env; argv[0] = ""; if (preprocess) { sprintf(buf, "\ -/bin/sed -e '/^[^#]/b' \ +%s -e '/^[^#]/b' \ -e '/^#[ ]*include[ ]/b' \ -e '/^#[ ]*define[ ]/b' \ -e '/^#[ ]*if[ ]/b' \ @@ -129,7 +130,7 @@ register char **env; -e '/^#[ ]*endif/b' \ -e 's/^#.*//' \ %s | %s -C %s%s", - argv[0], CPP, str_get(str), CPPMINUS); + SED, argv[0], CPP, str_get(str), CPPMINUS); rsfp = popen(buf,"r"); } else if (!*argv[0]) |