From 01fde2b197c3d33d33b8814cdb677f8f262044a0 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Sun, 12 Nov 2017 11:22:24 -0500
Subject: Use qualified stream tag when expecting stream close.

---
 xmpt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'xmpt')

diff --git a/xmpt b/xmpt
index bae4eee..37af263 100755
--- a/xmpt
+++ b/xmpt
@@ -245,7 +245,7 @@ sub assert_arg {
 
 # Stick actual execution in its own package so you don't accidentally
 # clobber stuff in main while running templates.
-package evalpkg;
+package evalpkg; # TODO: Make package name dynamic.
 
 use MIME::Base64;
 
@@ -277,3 +277,7 @@ sub resourcepart() {
 sub plain_auth() {
   MIME::Base64::encode(join("\0", "", bare_jid(), $env{password}));
 }
+
+sub stream() {
+  main::assert_arg('stream', 'stream:stream');
+}
-- 
cgit v1.2.3