From 16c149e2a2916c925e3b49842cb6cd4afd3ab5ec Mon Sep 17 00:00:00 2001
From: aaron <462826@qq.com>
Date: Mon, 10 Oct 2022 14:40:34 +0800
Subject: [PATCH] update test scripts

---
 demo/lang/tcl/2_webpage_extract.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/demo/lang/tcl/2_webpage_extract.tl b/demo/lang/tcl/2_webpage_extract.tl
index e4d74d08..573ac194 100755
--- a/demo/lang/tcl/2_webpage_extract.tl
+++ b/demo/lang/tcl/2_webpage_extract.tl
@@ -23,5 +23,5 @@ set html [::http::data $http]
 
 puts "$html"
 
-regexp -- {<title>(.*?)<} $html match elem
+regexp -- {<title>(.*?)</title>} $html match elem
 puts "$elem"
-- 
GitLab