--- a/UnixOperatingSystem.st Sun May 05 23:10:00 2013 +0200
+++ b/UnixOperatingSystem.st Mon May 06 02:24:56 2013 +0200
@@ -3332,19 +3332,14 @@
|path f fExt commandFilename|
commandFilename := aCommand asFilename.
-commandFilename printCR.
-commandFilename pathName printCR.
commandFilename isAbsolute ifTrue:[
-'1' print. commandFilename pathName printCR.
^ commandFilename pathName
].
commandFilename isExplicitRelative ifTrue:[
-'2' print. commandFilename pathName printCR.
^ commandFilename pathName
].
path := self getEnvironment:'PATH'.
-'3' print. path printCR.
path notEmptyOrNil ifTrue:[
(path asCollectionOfSubstringsSeparatedBy:self pathSeparator) do:[:eachPathComponent |
eachPathComponent isEmpty ifTrue:[
@@ -13541,11 +13536,11 @@
!UnixOperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.320 2013-05-05 21:10:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.321 2013-05-06 00:24:56 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.320 2013-05-05 21:10:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.321 2013-05-06 00:24:56 cg Exp $'
! !