diff options
| author | davygrvy <davygrvy@pobox.com> | 2007-10-15 20:01:42 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2007-10-15 20:01:42 (GMT) |
| commit | ff513dd2321ade7fa3b0fc340a44021f200704ce (patch) | |
| tree | 921f699317f0fb516719467cee5be5d1e4ec8597 /tools | |
| parent | eb86ccb53ca68851ce67ced4d861c4ae5926879a (diff) | |
| download | tcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.zip tcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.tar.gz tcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.tar.bz2 | |
* tools/mkdepend.tcl: include path problem fixed. Never fight
city hall when comes to levels of quoting issues.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/mkdepend.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tools/mkdepend.tcl b/tools/mkdepend.tcl index bb499bd..ed3266c 100644 --- a/tools/mkdepend.tcl +++ b/tools/mkdepend.tcl @@ -27,7 +27,7 @@ # http://web.archive.org/web/20070616205924/http://www.doc.ic.ac.uk/~np2/software/mkdepend.html # #============================================================================== -# RCS: @(#) $Id: mkdepend.tcl,v 1.2 2007/10/15 18:38:21 davygrvy Exp $ +# RCS: @(#) $Id: mkdepend.tcl,v 1.3 2007/10/15 20:01:42 davygrvy Exp $ #============================================================================== array set mode_data {} @@ -363,7 +363,9 @@ proc main {} { set mode mgw32 } -passthru:* { - puts stderr [set passthru [string range $arg 10 end]] + set passthru [string range $arg 10 end] + regsub -all {"} $passthru {\"} passthru + regsub -all {\\} $passthru {/} passthru } -out:* { openOutput [string range $arg 5 end] |