Change 14585: Empty path is ENOENT (MacPerl Bug #512351)

Change 14585 by pudge@pudge-mobile on 2002/02/07 18:38:44

	Empty path is ENOENT (MacPerl Bug #512351)

Affected files ...

.... //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.c#4 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.c#4 (text) ====
Index: perl/macos/macperl/MPAppleEvents.c
--- perl/macos/macperl/MPAppleEvents.c.~1~	Thu Feb  7 11:45:10 2002
+++ perl/macos/macperl/MPAppleEvents.c	Thu Feb  7 11:45:10 2002
@@ -9,6 +9,9 @@
 Language	:	MPW C
 
 $Log: MPAppleEvents.c,v $
+Revision 1.5  2002/02/04 07:46:28  neeri
+Empty path is ENOENT (MacPerl Bug #512351)
+
 Revision 1.4  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -5543,6 +5546,8 @@
 	memcpy(file, path, size);
 	file[size] = 0;
 	
+	if (!size)
+		return dirNFErr;
 	if (err = GUSIPath2FSp(file, &spec))
 		return err;
 	if (err = GUSIFSpGetCatInfo(&spec, &info))
End of Patch.