RT 75902: Add prototypes for tie() and untie() to allow overloading

1 files changed, 8 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 57f1ca69a2..94965f2d8c 100644
--- a/pp.c
+++ b/pp.c
@@ -429,6 +429,14 @@ PP(pp_prototype)
 		    ret = newSVpvs_flags("\\[@%]", SVs_TEMP);
 		    goto set;
 		}
+		if (code == -KEY_tied || code == -KEY_untie) {
+		    ret = newSVpvs_flags("\\[$@%*]", SVs_TEMP);
+		    goto set;
+		}
+		if (code == -KEY_tie) {
+		    ret = newSVpvs_flags("\\[$@%*]$@", SVs_TEMP);
+		    goto set;
+		}
 		if (code == -KEY_readpipe) {
 		    s = "CORE::backtick";
 		}