From: SourceForge.net <no...@so...> - 2009-08-14 19:41:45
|
Bugs item #2837800, was opened at 2009-08-14 13:57 Message generated for change (Comment added) made by dgp You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=2837800&group_id=10894 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: 36. Pathname Management Group: current: 8.5.7 Status: Open Resolution: None Priority: 9 Private: No Submitted By: Don Porter (dgp) Assigned to: Don Porter (dgp) Summary: [glob] segfault searching dirs matching ~* Initial Comment: % file mkdir ./~goo % close [open ./~goo/test w] % glob [file join * test] make: *** [shell] Segmentation fault ---------------------------------------------------------------------- >Comment By: Don Porter (dgp) Date: 2009-08-14 15:41 Message: A different variation of the same bug in Tcl 8.4: % file mkdir ./~dgp ;# empty directory % glob */.mozilla ~dgp/.mozilla The search in subdirectories of the current directory is actually finding something way over in my home directory instead. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2009-08-14 14:38 Message: The actual releases of Tcl 8.4, up through 8.4.19 are slightly better: % glob */test no files matched glob pattern "*/test" It's a wrong result, but at least without the empty error message demonstrated in the tip of the core-8-4-branch. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2009-08-14 14:34 Message: 8.3.5 works fine. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2009-08-14 14:32 Message: In Tcl 8.4, there is no crash, but the incorrect result is not much better: % glob [file join * test] % ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2009-08-14 13:59 Message: Stack trace from debug build of the tip of the core-8-5-branch: Program received signal SIGSEGV, Segmentation fault. 0x0807bf8a in Tcl_DbDecrRefCount (objPtr=0x0, file=0x8160368 "/home/dgp/cvs/tcl8.5/unix/../generic/tclPathObj.c", line=1690) at /home/dgp/cvs/tcl8.5/unix/../generic/tclObj.c:3153 3153 if (objPtr->refCount == 0x61616161) { (gdb) bt #0 0x0807bf8a in Tcl_DbDecrRefCount (objPtr=0x0, file=0x8160368 "/home/dgp/cvs/tcl8.5/unix/../generic/tclPathObj.c", line=1690) at /home/dgp/cvs/tcl8.5/unix/../generic/tclObj.c:3153 #1 0x080820c9 in Tcl_FSGetTranslatedPath (interp=0x89098d0, pathPtr=0x89752d8) at /home/dgp/cvs/tcl8.5/unix/../generic/tclPathObj.c:1690 #2 0x080ad652 in TclpMatchInDirectory (interp=0x89098d0, resultPtr=0x8974d10, pathPtr=0x89752d8, pattern=0x0, types=0x0) at /home/dgp/cvs/tcl8.5/unix/../unix/tclUnixFile.c:222 #3 0x080682ba in Tcl_FSMatchInDirectory (interp=0x89098d0, resultPtr=0x8974d10, pathPtr=0x89752d8, pattern=0x0, types=0x0) at /home/dgp/cvs/tcl8.5/unix/../generic/tclIOUtil.c:1102 #4 0x08145dc6 in DoGlob (interp=0x89098d0, matchesObj=0x8974d10, separators=0x816f602 "/", pathPtr=0x8975010, flags=1, pattern=0x897454a "test", types=0x0) at /home/dgp/cvs/tcl8.5/unix/../generic/tclFileName.c:2478 #5 0x08145941 in DoGlob (interp=0x89098d0, matchesObj=0x8974d10, separators=0x816f602 "/", pathPtr=0x0, flags=0, pattern=0x8974548 "*/test", types=0x0) at /home/dgp/cvs/tcl8.5/unix/../generic/tclFileName.c:2364 #6 0x08145010 in TclGlob (interp=0x89098d0, pattern=0x8974548 "*/test", pathPrefix=0x0, globFlags=0, types=0x0) at /home/dgp/cvs/tcl8.5/unix/../generic/tclFileName.c:1914 #7 0x0814471e in Tcl_GlobObjCmd (dummy=0x0, interp=0x89098d0, objc=1, objv=0x890ac6c) at /home/dgp/cvs/tcl8.5/unix/../generic/tclFileName.c:1584 ... ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=2837800&group_id=10894 |