summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1998-10-17 13:43:54 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1998-10-17 13:43:54 +0000
commit092bebab2f702b0ac392b3259fc90294ab403f4b (patch)
tree3d5351416db9d4e4aa91afdf7b5202d097fdc6a3 /perl.c
parentb56ec34489067f612a4e5d2fecae86c5bbfffd5c (diff)
downloadperl-092bebab2f702b0ac392b3259fc90294ab403f4b.tar.gz
The VM/ESA port essentials, based on
perl-mvs: From: Neale Ferguson <neale@VMA.TABNSW.COM.AU> Subject: Re: Can't find Data/Dumper.pm Date: Mon, 28 Sep 1998 07:40:49 +1300 Message-ID: <360E86B0.23847AF4@mailbox.tabnsw.com.au> private email: From: Neale Ferguson <neale@VMA.TABNSW.COM.AU> Subject: Re: Perl thread problems in VM/ESA Date: Thu, 15 Oct 1998 07:18:35 +1300 Message-ID: <3624EAFA.16163A2B@mailbox.tabnsw.com.au> and private email: From: Neale Ferguson <NEALE@PUCC.PRINCETON.EDU> Subject: perl archive Date: Sun, 11 Oct 1998 19:28:54 EDT Message-Id: <19981011233112Z67215-26626+1513@outbound.Princeton.EDU> which gave a pointer to http://pucc.princeton.edu/~neale/perl.tar (based on Perl 5.005_51) p4raw-id: //depot/cfgperl@2006
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index cb0e6243a6..33a16672ae 100644
--- a/perl.c
+++ b/perl.c
@@ -1749,6 +1749,9 @@ moreswitches(char *s)
#ifdef __VOS__
printf("Stratus VOS port by Paul_Green@stratus.com, 1997-1998\n");
#endif
+#ifdef __OPEN_VM
+ printf("VM/ESA port by Neale Ferguson, 1998\n");
+#endif
#ifdef BINARY_BUILD_NOTICE
BINARY_BUILD_NOTICE;
#endif
@@ -2008,6 +2011,21 @@ sed %s -e \"/^[^#]/b\" \
%s | %_ -C %_ %s",
(PL_doextract ? "-e \"1,/^#/d\n\"" : ""),
#else
+# ifdef __OPEN_VM
+ sv_setpvf(cmd, "\
+%s %s -e '/^[^#]/b' \
+ -e '/^#[ ]*include[ ]/b' \
+ -e '/^#[ ]*define[ ]/b' \
+ -e '/^#[ ]*if[ ]/b' \
+ -e '/^#[ ]*ifdef[ ]/b' \
+ -e '/^#[ ]*ifndef[ ]/b' \
+ -e '/^#[ ]*else/b' \
+ -e '/^#[ ]*elif[ ]/b' \
+ -e '/^#[ ]*undef[ ]/b' \
+ -e '/^#[ ]*endif/b' \
+ -e 's/^[ ]*#.*//' \
+ %s | %_ %_ %s",
+# else
sv_setpvf(cmd, "\
%s %s -e '/^[^#]/b' \
-e '/^#[ ]*include[ ]/b' \
@@ -2021,6 +2039,7 @@ sed %s -e \"/^[^#]/b\" \
-e '/^#[ ]*endif/b' \
-e 's/^[ ]*#.*//' \
%s | %_ -C %_ %s",
+# endif
#ifdef LOC_SED
LOC_SED,
#else