Fix a Win32 linker error following change #25972

p4raw-link: @25972 on //depot/perl: ce6987d0ee9b127be2a1769a57aa5a88de5b51ef

p4raw-id: //depot/perl@25997

diff --git a/pp_sys.c b/pp_sys.c
index 1f10882..4f95c9c 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3466,13 +3466,13 @@ PP(pp_link)
            (op_type == OP_LINK) ?
            PerlLIO_link(tmps, tmps2) : symlink(tmps, tmps2);
 #    else
            (op_type == OP_LINK) ?
            PerlLIO_link(tmps, tmps2) : symlink(tmps, tmps2);
 #    else

-    /* Only have symlink, so calls to pp_link will have DIE()d above.  */
-       symlink(tmps, tmps2);
+    /* Only have link, so calls to pp_symlink will have DIE()d above.  */
+       PerlLIO_link(tmps, tmps2);

 #    endif
 #  else
 #    if defined(HAS_SYMLINK)
 #    endif
 #  else
 #    if defined(HAS_SYMLINK)

-    /* Only have link, so calls to pp_symlink will have DIE()d above.  */
-       PerlLIO_link(tmps, tmps2);
+    /* Only have symlink, so calls to pp_link will have DIE()d above.  */
+       symlink(tmps, tmps2);

 #    endif
 #  endif
     }
 #    endif
 #  endif
     }