Perl_pp_symlink and Perl_pp_link can be merged. The diff looks evil,

but the actual finished code is not as bad as it seems.

p4raw-id: //depot/perl@25972

1 files changed, 5 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 659603769b..2fcf5f561e 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -941,6 +941,11 @@ PP(pp_kill)
     return pp_chown();
 }
 
+PP(pp_symlink)
+{
+    return pp_link();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {