From 28adfc56a882e74851bf8d9cd14eaddbb4823718 Mon Sep 17 00:00:00 2001
From: Ben <im_dev@barracuda.com>
Date: Wed, 20 Jan 2010 18:26:56 -0500
Subject: [PATCH] Avoid assert failure with outgoing XA status.

---
 perl/lib/Thrasher/Protocol/Purple.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl/lib/Thrasher/Protocol/Purple.pm b/perl/lib/Thrasher/Protocol/Purple.pm
index bb5c144..f450a1d 100644
--- a/perl/lib/Thrasher/Protocol/Purple.pm
+++ b/perl/lib/Thrasher/Protocol/Purple.pm
@@ -845,6 +845,9 @@ sub user_presence_update {
             logger("Unknown type/show of [$type/$show]");
         }
     }
+    elsif ($show eq 'xa' || $show eq 'xaway') {
+        $purple_status = $purple_presence{'xaway'};
+    }
     else {
         logger("Unknown type/show of [$type/$show] (show is completely unrecognized)");
     }
-- 
2.11.4.GIT