Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (34 sloc) 1.43 KB
Index: tkdiff
===================================================================
RCS file: /cvsroot/tkdiff/src/tkdiff,v
retrieving revision 1.45
diff -c -r1.45 tkdiff
*** tkdiff 29 Jul 2006 14:17:30 -0000 1.45
--- tkdiff 2 Mar 2007 09:41:53 -0000
***************
*** 790,801 ****
if {"$r" == "" || "$rev" == "rBASE"} {
set finfo(lbl,$index) "$f (SVN BASE)"
debug-info " Setting lbl $finfo(lbl,$index)"
! die-unless "exec cat $dirname/.svn/text-base/$tailname.svn-base" \
$finfo(pth,$index)
} else {
set finfo(lbl,$index) "$f (SVN $rev)"
debug-info " Setting lbl $finfo(lbl,$index)"
! die-unless "exec $cmd cat $svnopt $f" $finfo(pth,$index)
}
} elseif {[regexp {://} $f]} {
# Subversion command can have the form
--- 790,801 ----
if {"$r" == "" || "$rev" == "rBASE"} {
set finfo(lbl,$index) "$f (SVN BASE)"
debug-info " Setting lbl $finfo(lbl,$index)"
! die-unless "exec cat \"$dirname/.svn/text-base/$tailname.svn-base\"" \
$finfo(pth,$index)
} else {
set finfo(lbl,$index) "$f (SVN $rev)"
debug-info " Setting lbl $finfo(lbl,$index)"
! die-unless "exec $cmd cat $svnopt \"$f\"" $finfo(pth,$index)
}
} elseif {[regexp {://} $f]} {
# Subversion command can have the form