In makedef.pl, skip Perl_unlnk on all platforms without UNLINK_ALL_VERSIONS.
authorNicholas Clark <nick@ccl4.org>
Mon, 18 Jul 2011 13:55:52 +0000 (15:55 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 1 Aug 2011 09:53:50 +0000 (11:53 +0200)
As only VMS sets UNLINK_ALL_VERSIONS, this permits removing Perl_unlnk from
the platform specific skip lists of all the other platforms.

makedef.pl

index 66317fab770957af733135a340641b2da72c0e6c..56e89a38cc25abc2e9309839ce67bfa35446c681 100644 (file)
@@ -293,7 +293,6 @@ if ($PLATFORM eq 'win32') {
                     Perl_init_thread_intern
                     Perl_same_dirent
                     Perl_setenv_getix
-                    Perl_unlnk
                     Perl_watch
                     Perl_safexcalloc
                     Perl_safexmalloc
@@ -345,7 +344,6 @@ if ($PLATFORM eq 'wince') {
                     Perl_init_thread_intern
                     Perl_same_dirent
                     Perl_setenv_getix
-                    Perl_unlnk
                     Perl_watch
                     Perl_safexcalloc
                     Perl_safexmalloc
@@ -367,7 +365,6 @@ elsif ($PLATFORM eq 'aix') {
                     Perl_safexmalloc
                     Perl_safexrealloc
                     Perl_same_dirent
-                    Perl_unlnk
                     Perl_sys_intern_clear
                     Perl_sys_intern_dup
                     Perl_sys_intern_init
@@ -478,7 +475,6 @@ elsif ($PLATFORM eq 'netware') {
                        Perl_init_thread_intern
                        Perl_same_dirent
                        Perl_setenv_getix
-                       Perl_unlnk
                        Perl_watch
                        Perl_safexcalloc
                        Perl_safexmalloc
@@ -586,10 +582,12 @@ elsif ($PLATFORM eq 'vms') {
                     Perl_signbit
                     )])
        if $define{'HAS_SIGNBIT'};
+}
+
+unless ($define{UNLINK_ALL_VERSIONS}) {
     skip_symbols([qw(
                     Perl_unlnk
                     )])
-       unless $define{'UNLINK_ALL_VERSIONS'};
 }
 
 unless ($define{'DEBUGGING'}) {