summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorDan Faigin, Doug Landauer <unknown@longtimeago>1988-01-21 09:21:04 +0000
committerLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>1988-01-21 09:21:04 +0000
commit36ce8bec6e5bbc05c8d60ee17f105fc8b751cada (patch)
tree261095fa1f31159593c5eda983baf59884b33246 /perly.c
parent8d063cd8450e59ea1c611a2f4f5a21059a2804f1 (diff)
downloadperl-36ce8bec6e5bbc05c8d60ee17f105fc8b751cada.tar.gz
perl 1.0 patch 1: Portability bugs and one possible SIGSEGV
On some systems the Configure script and C compilations get warning messages that may scare some folks unnecessarily. Also, use of the "redo" command if debugging is compiled in overflows a stack on which the trace context is kept.
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c9
1 files changed, 6 insertions, 3 deletions
diff --git a/perly.c b/perly.c
index bc3231813e..641971b401 100644
--- a/perly.c
+++ b/perly.c
@@ -1,6 +1,9 @@
-char rcsid[] = "$Header: perly.c,v 1.0 87/12/18 15:53:31 root Exp $";
+char rcsid[] = "$Header: perly.c,v 1.0.1.1 88/01/21 21:25:57 root Exp $";
/*
* $Log: perly.c,v $
+ * Revision 1.0.1.1 88/01/21 21:25:57 root
+ * Now uses CPP and CPPMINUS symbols from config.h.
+ *
* Revision 1.0 87/12/18 15:53:31 root
* Initial revision
*
@@ -118,8 +121,8 @@ register char **env;
-e '/^#[ ]*else/b' \
-e '/^#[ ]*endif/b' \
-e 's/^#.*//' \
- %s | /lib/cpp -C %s-",
- argv[0], str_get(str));
+ %s | %s -C %s%s",
+ argv[0], CPP, str_get(str), CPPMINUS);
rsfp = popen(buf,"r");
}
else if (!*argv[0])