diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-09-01 13:30:28 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-09-01 17:38:15 -0500 |
| commit | 483efd0abe32386a3d82710532464cf4e9a0124b (patch) | |
| tree | c70971a6c178b727d01f7c349caee4ad750abaaa /regen/embed.pl | |
| parent | 7c280bee056f2462f4b4aa2150a160fb9176601e (diff) | |
| download | perl-483efd0abe32386a3d82710532464cf4e9a0124b.tar.gz | |
Make PERLLIB_SEP dynamic on VMS.
Because if we're running under a Unix shell, the path separator is
likely to meet the expectations of Unix shell scripts better if it's
the Unix ':' rather than the VMS '|'. There is no change when
running under DCL.
Diffstat (limited to 'regen/embed.pl')
| -rwxr-xr-x | regen/embed.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 342e0171f2..0b1ed0d943 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -481,9 +481,11 @@ END for $sym (@globvar) { print $em "#ifdef OS2\n" if $sym eq 'sh_path'; + print $em "#ifdef __VMS\n" if $sym eq 'perllib_sep'; print $em multon($sym, 'G','my_vars->'); print $em multon("G$sym",'', 'my_vars->'); print $em "#endif\n" if $sym eq 'sh_path'; + print $em "#endif\n" if $sym eq 'perllib_sep'; } print $em <<'END'; |