diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-23 21:53:37 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-23 21:53:37 +0200 |
| commit | 9beee977ccb0703656504c070ab85e54537f8f95 (patch) | |
| tree | 0dd1636d79223b91b23fd43cba0581fea63e295d /vms/gawkmisc.vms | |
| parent | d3e8016ffd4de45fb8ea5a76a1aa2048f3facaa9 (diff) | |
| download | egawk-9beee977ccb0703656504c070ab85e54537f8f95.tar.gz egawk-9beee977ccb0703656504c070ab85e54537f8f95.tar.bz2 egawk-9beee977ccb0703656504c070ab85e54537f8f95.zip | |
More doc updates, fix initialization on VAX/VMS.
Diffstat (limited to 'vms/gawkmisc.vms')
| -rw-r--r-- | vms/gawkmisc.vms | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms index 046c5167..749c6036 100644 --- a/vms/gawkmisc.vms +++ b/vms/gawkmisc.vms @@ -82,7 +82,7 @@ char quote = '\''; char *defpath = DEFPATH; char *deflibpath = DEFLIBPATH; char envsep = ','; -#define VMS_NAME_LEN 1 +#define VMS_NAME_LEN 255 static char vms_name[VMS_NAME_LEN+1]; /* Take all the fun out of simply looking up a logical name */ @@ -149,6 +149,7 @@ const char *filespec; * be fixed. */ + result = 0; if (filespec[0] == '/') { char * nextslash; int length; @@ -333,6 +334,7 @@ const char *filespec; strncpy(vms_name, name, name_len); vms_name[name_len] = 0; + result = 1; /* We only keep the extension if it is not ".exe" */ keep_ext = 0; @@ -427,13 +429,6 @@ const char *filespec; } } } - - } else { - /* There is no way that the code should ever get here - * As we already verified that the '/' was present - */ - fprintf(stderr, - "Sanity failure somewhere we lost a '/'\n"); } } else { /* No changes needed */ |