[PD-cvs] externals/clr clr.cpp,1.14,1.15

[Thomas Grill]

Update of /cvsroot/pure-data/externals/clr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7581/clr

Modified Files:
	clr.cpp 
Log Message:
fix for strange open_via_path behavior

Index: clr.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/clr/clr.cpp,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** clr.cpp	9 Mar 2006 17:27:37 -0000	1.14
--- clr.cpp	9 Mar 2006 19:06:53 -0000	1.15
***************
*** 910,914 ****
          int fd;
          if ((fd = open_via_path("",CORELIB,"." DLLEXT,dirbuf,&nameptr,MAXPDSTRING,1)) >= 0) {
!             strcat(dirbuf,"/" CORELIB "." DLLEXT);
              close(fd);
          }
--- 910,915 ----
          int fd;
          if ((fd = open_via_path("",CORELIB,"." DLLEXT,dirbuf,&nameptr,MAXPDSTRING,1)) >= 0) {
!             if(dirbuf != nameptr) // fix for the fact that open_via_path doesn't return a path, when it's found in .
!                 strcat(dirbuf,"/" CORELIB "." DLLEXT);
              close(fd);
          }
***************
*** 919,923 ****
          MonoAssembly *assembly = mono_domain_assembly_open (monodomain,dirbuf);
  	    if(!assembly) {
! 		    error("clr: assembly " CORELIB "." DLLEXT " not found!");
  		    return;
  	    }
--- 920,924 ----
          MonoAssembly *assembly = mono_domain_assembly_open (monodomain,dirbuf);
  	    if(!assembly) {
! 		    error("CLR - assembly %s not found!",dirbuf);
  		    return;
  	    }