From 3c1bb0aef7db312fb885350841496ae9a69fafe7 Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Sat, 6 Feb 2010 21:13:26 +0100
Subject: [PATCH] Add WHAT(...) - wants to be a macro in the future, when we
 support them.

---
 src/core/operators.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/core/operators.pm b/src/core/operators.pm
index 7bda6dbab05..f4245698b9a 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -132,3 +132,8 @@ our multi infix:<~>($a, $b) {
     pir::assign__vPS($result, pir::concat__SSS(~$a, ~$b));
     $result
 }
+
+# XXX Wants to be a macro when we have them.
+our sub WHAT(\$x) {
+    $x.WHAT
+}