All the trancendental unary operators can be merged into PP_sin

(cos, exp, log, sqrt)

p4raw-id: //depot/perl@27124

1 files changed, 20 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 0f0f15737b..a96c75268d 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1054,6 +1054,26 @@ PP(pp_pop)
     return pp_shift();
 }
 
+PP(pp_cos)
+{
+    return pp_sin();
+}
+
+PP(pp_exp)
+{
+    return pp_sin();
+}
+
+PP(pp_log)
+{
+    return pp_sin();
+}
+
+PP(pp_sqrt)
+{
+    return pp_sin();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {