Eskil

Check-in [bf725897bf]
Login

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

Overview
Comment:Corrected CVS detection
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: bf725897bf9475cdf3982f52049fbc885eb779d5
User & Date: peter 2016-04-14 12:52:07.701
Context
2016-06-09
22:00
Use new DiffUtil check-in: 03a453b899 user: peter tags: trunk
2016-04-14
12:52
Corrected CVS detection check-in: bf725897bf user: peter tags: trunk
2016-04-13
21:44
Repaired Makefile check-in: 9589f9abfc user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
85
86
87
88
89
90
91


92
93
94
95
96
97
98

namespace eval eskil::rev::HG {}
namespace eval eskil::rev::BZR {}
namespace eval eskil::rev::P4 {}

proc eskil::rev::CVS::detect {file} {
    if {$file eq ""} {
        set dir [pwd]


    } else {
        set dir [file dirname $file]
    }
    if {[file isdirectory [file join $dir CVS]]} {
        if {[auto_execok cvs] ne ""} {
            return 1
        }








>
>








85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100

namespace eval eskil::rev::HG {}
namespace eval eskil::rev::BZR {}
namespace eval eskil::rev::P4 {}

proc eskil::rev::CVS::detect {file} {
    if {$file eq ""} {
        set dir [pwd]
    } elseif {[file isdirectory $file]} {
        set dir $file
    } else {
        set dir [file dirname $file]
    }
    if {[file isdirectory [file join $dir CVS]]} {
        if {[auto_execok cvs] ne ""} {
            return 1
        }
︙︙