TclGPG  Check-in [09a9f954b2]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed regexp which finds gpg version.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 09a9f954b2d39b841a2685faa917f892f2d07c98
User & Date: sgolovan 2016-01-13 19:41:55
Context
2016-04-26
11:10
Added a test for encrypting binary message intended to catch new line translation issue. Test fails only on Windows. check-in: dcf97702ed user: sgolovan tags: trunk
2016-01-13
19:41
Fixed regexp which finds gpg version. check-in: 09a9f954b2 user: sgolovan tags: trunk
19:29
Fixed unsetting GPG_AGENT_INFO. Don't treat warnings which gpg sends to the standard error as errors. check-in: 57c5063aff user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tclgpg.tcl.

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
    if {[catch {
                exec [lindex [auto_execok $gpgExecutable] 0] --version 2>@1
            } output]} {
        namespace delete ::gpg
        return -code error "GnuPG binary $gpgExecutable is unusable"
    }

    if {![regexp {^gpg \(GnuPG\) ([\d\.]+)} $output -> Version]} {
        namespace delete ::gpg
        return -code error "GnuPG binary $gpgExecutable is unusable"
    }

    if {[package vsatisfies $Version 2.0] && \
            ![package vsatisfies $Version 2.0.26] && \
            ![package vsatisfies $Version 2.1] && \







|







34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
    if {[catch {
                exec [lindex [auto_execok $gpgExecutable] 0] --version 2>@1
            } output]} {
        namespace delete ::gpg
        return -code error "GnuPG binary $gpgExecutable is unusable"
    }

    if {![regexp {(?:^|\n)gpg \(GnuPG\) ([\d\.]+)} $output -> Version]} {
        namespace delete ::gpg
        return -code error "GnuPG binary $gpgExecutable is unusable"
    }

    if {[package vsatisfies $Version 2.0] && \
            ![package vsatisfies $Version 2.0.26] && \
            ![package vsatisfies $Version 2.1] && \