OriginalBugID: 5171 Bug
Version: 8.3
SubmitDate: '2000-04-19'
LastModified: '2000-04-19'
Severity: MED
Status: Closed
Submitter: techsupp
ChangedBy: hobbs
RelatedBugIDs: 5096
OS: Windows NT
OSVersion: 4sp5
Machine: Run o' the mill PC cloneish thing
FixedDate: '2000-10-25'
ClosedDate: '2000-04-19'

Name:
David Cuthbert

CVS:
18-Apr-00 23:14 EDT

ReproducibleScript:
% package require registry
error reading package index file c:/scriptics/lib/tcl8.3/reg1.0/pkgIndex.tcl: invalid command name "load c:/scriptics/lib/tcl8.3/reg1.0/tclreg83.dll registry"
can't find package registry

ObservedBehavior:
Note that tcl8.3/library/reg1.0/pkgIndex.tcl, in the CVS repository, contains pecuilar linefeeds (^M^M^J instead of ^M^J or ^J).

DesiredBehavior:
Successful load of package.

Patch:
Um... I don't know if this diff will help, but...

Index: pkgIndex.tcl

RCS file: /cvsroot/tcl/library/reg1.0/pkgIndex.tcl,v
retrieving revision 1.6
diff -c -r1.6 pkgIndex.tcl
*** pkgIndex.tcl 1999/11/30 08:37:04 1.6
--- pkgIndex.tcl 2000/04/19 03:11:43
***************
*** 1,7 ****
! if {[info exists tcl_platform(debug)]} {
! package ifneeded registry 1.0 ! [list load [file join $dir tclreg83d.dll] registry]
! } else {
! package ifneeded registry 1.0 ! [list load [file join $dir tclreg83.dll] registry]
! }
--- 1,7 ----
! if {[info exists tcl_platform(debug)]} {
! package ifneeded registry 1.0 ! [list load [file join $dir tclreg83d.dll] registry]
! } else {
! package ifneeded registry 1.0 ! [list load [file join $dir tclreg83.dll] registry]
! }

PatchFiles:
reg1.0/pkgIndex.tcl