Add new overloading type.

diff --git a/overload.pl b/overload.pl
index 6f0fe34..38331cb 100644 (file)
--- a/overload.pl
+++ b/overload.pl
@@ -217,5 +217,6 @@ repeat_ass  (x=
 concat         (.
 concat_ass     (.=
 smart          (~~
+ftest           (-X
 # Note: Perl_Gv_AMupdate() assumes that DESTROY is the last entry
 DESTROY                DESTROY