blob: 5aacac3c3bb53c05ac81f6be4416ea98d375c2f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# adapted from FreeBSD ports (author's email: dereckson@gmail.com)
--- xpath.tcl
+++ xpath.tcl
@@ -14,10 +14,9 @@
# for more details.
# -------------------------------------------------------------------------
-if { [catch {package require dom 2.0}] } {
- if { [catch {package require dom 1.6}] } {
+namespace eval ::SOAP {variable domVersion}
+if { [catch {package require dom} ::SOAP::domVersion] || [package vcompare $::SOAP::domVersion 1.6] < 0} {
error "require dom package greater than 1.6"
- }
}
namespace eval SOAP::xpath {
|