Use qualified stream tag when expecting stream close.

1 files changed, 5 insertions, 1 deletions

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');
+}