diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-17 12:20:46 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-17 12:20:46 +0300 |
| commit | a786967e7e5775d6da6fd94e5113c6cb3c7704f2 (patch) | |
| tree | 1b667c455d7f90aa210fd44374a81eb7d0e03eaf /vms/vmstest.com | |
| parent | 6f373546792c2befaa2d9d0fffb12fda80320042 (diff) | |
| parent | 49a291d1713912ffb6801ced6f0c517e430a9a71 (diff) | |
| download | egawk-a786967e7e5775d6da6fd94e5113c6cb3c7704f2.tar.gz egawk-a786967e7e5775d6da6fd94e5113c6cb3c7704f2.tar.bz2 egawk-a786967e7e5775d6da6fd94e5113c6cb3c7704f2.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'vms/vmstest.com')
| -rw-r--r-- | vms/vmstest.com | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/vms/vmstest.com b/vms/vmstest.com index 30bdbf22..a2ab9bff 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -27,6 +27,9 @@ $ gawk = "$sys$disk:[-]gawk" $ AWKPATH_srcdir = "define/User AWKPATH sys$disk:[]" $ AWKLIBPATH_dir = "define/User AWKLIBPATH sys$disk:[-]" $ +$! Make sure that the default directory exists on a search list. +$ def_dir = f$environment("default") +$ create/dir 'def_dir' $ listdepth = 0 $ pipeok = 0 $ floatmode = -1 ! 0: D_float, 1: G_float, 2: IEEE T_float |