Fix [738bc50e93]: auto_execok doesn't recognise mklink on windows. Remove some unnecessary end-of-line spacing.

1 files changed, 22 insertions, 22 deletions

diff --git a/library/package.tcl b/library/package.tcl
index 06f619c..3783722 100644
--- a/library/package.tcl
+++ b/library/package.tcl
@@ -40,7 +40,7 @@ proc tcl::Pkg::CompareExtension { fileName {ext {}} } {
             set currExt [file extension $root]
             if {$currExt eq $ext} {
                 return 1
-            } 
+            }
 
 	    # The current extension does not match; if it is not a numeric
 	    # value, quit, as we are only looking to ignore version number
@@ -289,22 +289,22 @@ proc pkg_mkIndex {args} {
 		    set ::tcl::type source
 		}
 
-		# As a performance optimization, if we are creating 
-		# direct load packages, don't bother figuring out the 
-		# set of commands created by the new packages.  We 
-		# only need that list for setting up the autoloading 
+		# As a performance optimization, if we are creating
+		# direct load packages, don't bother figuring out the
+		# set of commands created by the new packages.  We
+		# only need that list for setting up the autoloading
 		# used in the non-direct case.
 		if { !$::tcl::direct } {
 		    # See what new namespaces appeared, and import commands
 		    # from them.  Only exported commands go into the index.
-		    
+
 		    foreach ::tcl::x [::tcl::GetAllNamespaces] {
 			if {! [info exists ::tcl::namespaces($::tcl::x)]} {
 			    namespace import -force ${::tcl::x}::*
 			}
 
 			# Figure out what commands appeared
-			
+
 			foreach ::tcl::x [info commands] {
 			    set ::tcl::newCmds($::tcl::x) 1
 			}
@@ -313,18 +313,18 @@ proc pkg_mkIndex {args} {
 			}
 			foreach ::tcl::x [array names ::tcl::newCmds] {
 			    # determine which namespace a command comes from
-			    
+
 			    set ::tcl::abs [namespace origin $::tcl::x]
-			    
+
 			    # special case so that global names have no leading
 			    # ::, this is required by the unknown command
-			    
+
 			    set ::tcl::abs \
 				    [lindex [auto_qualify $::tcl::abs ::] 0]
-			    
+
 			    if {$::tcl::x ne $::tcl::abs} {
 				# Name changed during qualification
-				
+
 				set ::tcl::newCmds($::tcl::abs) 1
 				unset ::tcl::newCmds($::tcl::x)
 			    }
@@ -437,7 +437,7 @@ proc tclPkgSetup {dir pkg version files} {
 		set auto_index($cmd) [list load [file join $dir $f] $pkg]
 	    } else {
 		set auto_index($cmd) [list source [file join $dir $f]]
-	    } 
+	    }
 	}
     }
 }
@@ -466,7 +466,7 @@ proc tclPkgUnknown {name args} {
     set old_path [set use_path $auto_path]
     while {[llength $use_path]} {
 	set dir [lindex $use_path end]
-	
+
 	# Make sure we only scan each directory one time.
 	if {[info exists tclSeenPath($dir)]} {
 	    set use_path [lrange $use_path 0 end-1]
@@ -500,7 +500,7 @@ proc tclPkgUnknown {name args} {
 	set dir [lindex $use_path end]
 	if {![info exists procdDirs($dir)]} {
 	    set file [file join $dir pkgIndex.tcl]
-	    # safe interps usually don't have "file exists", 
+	    # safe interps usually don't have "file exists",
 	    if {([interp issafe] || [file exists $file])} {
 		set code [catch {source $file} msg opt]
 		if {$code == 1 &&
@@ -653,11 +653,11 @@ proc tcl::MacOSXPkgUnknown {original name args} {
 #
 #			Any number of -load and -source parameters may be
 #			specified, so long as there is at least one -load or
-#			-source parameter.  If the procs component of a 
+#			-source parameter.  If the procs component of a
 #			module specifier is left off, that module will be
 #			set up for direct loading; otherwise, it will be
 #			set up for lazy loading.  If both -source and -load
-#			are specified, the -load'ed files will be loaded 
+#			are specified, the -load'ed files will be loaded
 #			first, followed by the -source'd files.
 #
 # Results:
@@ -679,7 +679,7 @@ proc ::tcl::Pkg::Create {args} {
     if { $len < 6 } {
 	error $err(wrongNumArgs)
     }
-    
+
     # Initialize parameters
     array set opts {-name {} -version {} -source {} -load {}}
 
@@ -715,14 +715,14 @@ proc ::tcl::Pkg::Create {args} {
     if { [llength $opts(-version)] == 0 } {
 	error [format $err(valueMissing) "-version"]
     }
-    
+
     if { [llength $opts(-source)] == 0 && [llength $opts(-load)] == 0 } {
 	error $err(noLoadOrSource)
     }
 
     # OK, now everything is good.  Generate the package ifneeded statment.
     set cmdline "package ifneeded $opts(-name) $opts(-version) "
-    
+
     set cmdList {}
     set lazyFileList {}
 
@@ -730,7 +730,7 @@ proc ::tcl::Pkg::Create {args} {
     foreach key {load source} {
 	foreach filespec $opts(-$key) {
 	    lassign $filespec filename proclist
-	    
+
 	    if { [llength $proclist] == 0 } {
 		set cmd "\[list $key \[file join \$dir [list $filename]\]\]"
 		lappend cmdList $cmd
@@ -748,4 +748,4 @@ proc ::tcl::Pkg::Create {args} {
     return $cmdline
 }
 
-interp alias {} ::pkg::create {} ::tcl::Pkg::Create 
+interp alias {} ::pkg::create {} ::tcl::Pkg::Create