class: UnixOperatingSystem
authorClaus Gittinger <cg@exept.de>
Mon, 06 May 2013 02:24:56 +0200
changeset 15211 21d885fa7b18
parent 15210 e70fc011e203
child 15212 7b25b172b2e7
class: UnixOperatingSystem changed: #pathOfCommand:
UnixOperatingSystem.st
--- 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 $'
 ! !