summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwelch <welch>1999-01-19 23:30:54 (GMT)
committerwelch <welch>1999-01-19 23:30:54 (GMT)
commit6d0c27b1c6b1874acc81b2aacfe702cd73bd1f09 (patch)
tree766fdcf063ed1c525e0d6139e02d25d6b92cdd77
parente7baa9f3c3834460c926df9edfe72206f595d079 (diff)
downloadtcl-6d0c27b1c6b1874acc81b2aacfe702cd73bd1f09.zip
tcl-6d0c27b1c6b1874acc81b2aacfe702cd73bd1f09.tar.gz
tcl-6d0c27b1c6b1874acc81b2aacfe702cd73bd1f09.tar.bz2
Making it possible for http -command callbacks to safelyscriptics_tclpro_1_2_b1
uset the state array.
-rw-r--r--library/http/http.tcl7
-rw-r--r--library/http2.0/http.tcl7
-rw-r--r--library/http2.1/http.tcl7
-rw-r--r--library/http2.3/http.tcl7
4 files changed, 20 insertions, 8 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index d0a24f1..aa2356b 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.3 1998/09/14 18:40:03 stanton Exp $
+# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $
package provide http 2.0 ;# This uses Tcl namespaces
@@ -99,7 +99,10 @@ proc http::config {args} {
set state(status) error
}
}
- unset state(-command)
+ if {[info exist state(-command)]} {
+ # Command callback may already have unset our state
+ unset state(-command)
+ }
}
}
diff --git a/library/http2.0/http.tcl b/library/http2.0/http.tcl
index d0a24f1..aa2356b 100644
--- a/library/http2.0/http.tcl
+++ b/library/http2.0/http.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.3 1998/09/14 18:40:03 stanton Exp $
+# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $
package provide http 2.0 ;# This uses Tcl namespaces
@@ -99,7 +99,10 @@ proc http::config {args} {
set state(status) error
}
}
- unset state(-command)
+ if {[info exist state(-command)]} {
+ # Command callback may already have unset our state
+ unset state(-command)
+ }
}
}
diff --git a/library/http2.1/http.tcl b/library/http2.1/http.tcl
index d0a24f1..aa2356b 100644
--- a/library/http2.1/http.tcl
+++ b/library/http2.1/http.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.3 1998/09/14 18:40:03 stanton Exp $
+# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $
package provide http 2.0 ;# This uses Tcl namespaces
@@ -99,7 +99,10 @@ proc http::config {args} {
set state(status) error
}
}
- unset state(-command)
+ if {[info exist state(-command)]} {
+ # Command callback may already have unset our state
+ unset state(-command)
+ }
}
}
diff --git a/library/http2.3/http.tcl b/library/http2.3/http.tcl
index d0a24f1..aa2356b 100644
--- a/library/http2.3/http.tcl
+++ b/library/http2.3/http.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.3 1998/09/14 18:40:03 stanton Exp $
+# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $
package provide http 2.0 ;# This uses Tcl namespaces
@@ -99,7 +99,10 @@ proc http::config {args} {
set state(status) error
}
}
- unset state(-command)
+ if {[info exist state(-command)]} {
+ # Command callback may already have unset our state
+ unset state(-command)
+ }
}
}