diff options
Diffstat (limited to 'libraries/tclsoap/patches/SOAP.tcl.patch')
| -rw-r--r-- | libraries/tclsoap/patches/SOAP.tcl.patch | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/libraries/tclsoap/patches/SOAP.tcl.patch b/libraries/tclsoap/patches/SOAP.tcl.patch new file mode 100644 index 0000000000..1b7804bda1 --- /dev/null +++ b/libraries/tclsoap/patches/SOAP.tcl.patch @@ -0,0 +1,22 @@ +# adapted from FreeBSD ports (author's email: dereckson@gmail.com) +--- SOAP.tcl ++++ SOAP.tcl +@@ -22,12 +22,11 @@ package require rpcvar; # TclSOAP + + namespace eval ::SOAP {variable domVersion} + if {[catch {package require SOAP::dom 1.0} ::SOAP::domVersion]} { +- if { [catch {package require dom 2.0} ::SOAP::domVersion]} { +- if { [catch {package require dom 1.6} ::SOAP::domVersion]} { +- error "require dom package greater than 1.6" +- } +- package require SOAP::xpath; # TclSOAP ++ if {[catch {package require dom} ::SOAP::domVersion] || [package vcompare $::SOAP::domVersion 1.6] < 0} { ++ error "require dom package greater than 1.6" + } ++ package require SOAP::xpath; # TclSOAP ++ + proc ::SOAP::createDocument {name} { + set doc [dom::DOMImplementation create] + return [dom::document createElement $doc $name] + + |