Fix a Win32 linker error following change #25972

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

p4raw-id: //depot/perl@25997

1 files changed, 4 insertions, 4 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 1f10882ec2..4f95c9ce1e 100644
--- 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
-    /* 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)
-    /* 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
     }