diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-10-29 17:21:38 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-10-30 15:42:43 +0000 |
| commit | 4148925fb9b68c2d0202035b79c78c404072c670 (patch) | |
| tree | a463238632a1a79c9e92156c31e98e3379015d9f /vms/vmsish.h | |
| parent | cfbf46cd7f497ed348c167b5b6cce3852462ff45 (diff) | |
| download | perl-4148925fb9b68c2d0202035b79c78c404072c670.tar.gz | |
Re: patch@34561 VMS exec handling / cwd realpath fixes
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <49092842.8090805@qsl.net>
Convert symlink target to UNIX format on VMS. (Cwd changes not
included here.)
p4raw-id: //depot/perl@34667
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 2e887e45fb..48a474af48 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -276,7 +276,7 @@ #define my_endpwent() Perl_my_endpwent(aTHX) #define my_getlogin Perl_my_getlogin #ifdef HAS_SYMLINK -# define my_symlink Perl_my_symlink +# define my_symlink(a, b) Perl_my_symlink(aTHX_ a, b) #endif #define init_os_extras Perl_init_os_extras #define vms_realpath(a, b, c) Perl_vms_realpath(aTHX_ a,b,c) @@ -970,7 +970,7 @@ FILE * my_fdopen (int, const char *); int my_fclose (FILE *); int my_fwrite (const void *, size_t, size_t, FILE *); #ifdef HAS_SYMLINK -int my_symlink(const char *path1, const char *path2); +int Perl_my_symlink(pTHX_ const char *path1, const char *path2); #endif int Perl_my_flush (pTHX_ FILE *); struct passwd * Perl_my_getpwnam (pTHX_ const char *name); |