From 763a9fd9f464134cdc4f400e7dd27cb5824142e8 Mon Sep 17 00:00:00 2001
From: Thomas von Dein <tom@izb.net>
Date: Mon, 13 Apr 2020 18:15:38 +0200
Subject: [PATCH] added check if custom func already exists

---
 rpnc | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/rpnc b/rpnc
index e56ceb3..f25d4f1 100755
--- a/rpnc
+++ b/rpnc
@@ -556,14 +556,17 @@ sub defun {
     return;
   }
 
-  if (grep {$name eq $_} keys %commands) {
-    print "reserved function name (command)!\n";
-    return;
-  }
+  if (! exists $custom{$name}) {
+    # no need to check twice and overwriting of custom function must be legal
+    if (grep {$name eq $_} keys %commands) {
+      print "reserved function name (command)!\n";
+      return;
+    }
 
-  if (grep {$name eq $_} keys %func) {
-    print "reserved function name (function)!\n";
-    return;
+    if (grep {$name eq $_} keys %func) {
+      print "reserved function name (function)!\n";
+      return;
+    }
   }
 
   $custom{$name} = "@tokens";