diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2007-08-30 17:59:50 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-08-31 23:02:38 +0000 |
| commit | 4fdf8f88a748ed01c597aa0c5a9e5dcdd59adab6 (patch) | |
| tree | 213ced21945ace53403390e1d9e939c546ebca8f /vms/vmsish.h | |
| parent | 2b54c3f6d41342b4ee015415e987abda90dcc7be (diff) | |
| download | perl-4fdf8f88a748ed01c597aa0c5a9e5dcdd59adab6.tar.gz | |
[patch@31750] rename directories on VMS like on UNIX
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <46D79236.4070207@qsl.net>
More aggressive UNIX-like renaming of directories on VMS by analogy
with unlink() and rmdir(). Patch modified to compile under threads.
p4raw-id: //depot/perl@31777
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 328da311bb..05d49229c3 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -165,6 +165,7 @@ #define pathify_dirspec_utf8_ts Perl_pathify_dirspec_utf8_ts #define trim_unixpath Perl_trim_unixpath #define opendir Perl_opendir +#define rename Perl_rename #define rmscopy Perl_rmscopy #define my_mkdir Perl_my_mkdir #define vms_do_aexec Perl_vms_do_aexec @@ -228,6 +229,7 @@ #define rmsexpand_utf8_ts(a,b,c,d,e,f) Perl_rmsexpand_utf8_ts(aTHX_ a,b,c,d,e,f) #define trim_unixpath(a,b,c) Perl_trim_unixpath(aTHX_ a,b,c) #define opendir(a) Perl_opendir(aTHX_ a) +#define rename(a,b) Perl_rename(aTHX_ a,b) #define rmscopy(a,b,c) Perl_rmscopy(aTHX_ a,b,c) #define my_mkdir(a,b) Perl_my_mkdir(aTHX_ a,b) #define vms_do_aexec(a,b,c) Perl_vms_do_aexec(aTHX_ a,b,c) @@ -246,6 +248,7 @@ #define flex_fstat(a,b) Perl_flex_fstat(aTHX_ a,b) #define cando_by_name(a,b,c) Perl_cando_by_name(aTHX_ a,b,c) #define flex_stat(a,b) Perl_flex_stat(aTHX_ a,b) +#define flex_lstat(a,b) Perl_flex_lstat(aTHX_ a,b) #define my_getpwnam(a) Perl_my_getpwnam(aTHX_ a) #define my_getpwuid(a) Perl_my_getpwuid(aTHX_ a) #define my_flush(a) Perl_my_flush(aTHX_ a) @@ -859,6 +862,7 @@ char * Perl_rmsexpand_utf8 (const char *, char *, const char *, unsigned, int *, char * Perl_rmsexpand_utf8_ts (const char *, char *, const char *, unsigned, int *, int *); int Perl_trim_unixpath (char *, const char*, int); DIR * Perl_opendir (const char *); +int Perl_rename(const char *, const char *); int Perl_rmscopy (const char *, const char *, int); int Perl_my_mkdir (const char *, Mode_t); bool Perl_vms_do_aexec (SV *, SV **, SV **); @@ -896,6 +900,7 @@ char * Perl_rmsexpand_utf8 (pTHX_ const char *, char *, const char *, unsigned, char * Perl_rmsexpand_utf8_ts (pTHX_ const char *, char *, const char *, unsigned, int *, int *); int Perl_trim_unixpath (pTHX_ char *, const char*, int); DIR * Perl_opendir (pTHX_ const char *); +int Perl_rename (pTHX_ const char *, const char *); int Perl_rmscopy (pTHX_ const char *, const char *, int); int Perl_my_mkdir (pTHX_ const char *, Mode_t); bool Perl_vms_do_aexec (pTHX_ SV *, SV **, SV **); |