From: Steve Hay <SteveHay@planit.com>
Date: Fri, 4 Nov 2005 17:23:49 +0000 (+0000)
Subject: Fix a Win32 linker error following change #25972
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a8ebb7f2bc69c2b7689190ca0f678605f6299e9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
     }