diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-06 13:09:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-06 13:09:43 (GMT) |
| commit | 3f6a83eb9c3de5db795b3e0272cfbb5a88cd6e5d (patch) | |
| tree | 173a61f8c1cd74d959797fd913e0264149e7bc9d /generic/tclFCmd.c | |
| parent | 0a6a0021d3f0743256e44066515c6ab1af8b9f56 (diff) | |
| download | tcl-3f6a83eb9c3de5db795b3e0272cfbb5a88cd6e5d.zip tcl-3f6a83eb9c3de5db795b3e0272cfbb5a88cd6e5d.tar.gz tcl-3f6a83eb9c3de5db795b3e0272cfbb5a88cd6e5d.tar.bz2 | |
Add braces round if body...
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 1c16ef0..3d0bb95 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.26 2004/04/06 22:25:51 dgp Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.27 2004/10/06 13:09:43 dkf Exp $ */ #include "tclInt.h" @@ -609,7 +609,9 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) */ if (Tcl_FSGetPathType(path) == TCL_PATH_RELATIVE) { Tcl_Obj *abs = Tcl_FSJoinToPath(actualSource, 1, &path); - if (abs == NULL) break; + if (abs == NULL) { + break; + } Tcl_IncrRefCount(abs); Tcl_DecrRefCount(path); path = abs; |