PERFORCE change 13153 for review

Change 13153 by pudge@pudge-mobile on 2001/11/21 03:16:00

	Fix FSpGetCatInfo (and other functions) corrupting
	memory with bad filespecs (bug #471867)

Affected files ...

.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/typemap#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/typemap#2 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/typemap#2 (text) ====
Index: perl/macos/ext/Mac/Files/typemap
--- perl/macos/ext/Mac/Files/typemap.~1~	Tue Nov 20 20:30:06 2001
+++ perl/macos/ext/Mac/Files/typemap	Tue Nov 20 20:30:06 2001
@@ -8,7 +8,10 @@
 
 INPUT
 T_REALFSSPEC
-	GUSIPath2FSp((char *) SvPV_nolen($arg), &$var);
+	if (GUSIPath2FSp((char *) SvPV_nolen($arg), &$var))
+		croak(\"$var is not a valid file specification\");
+	else
+		0
 OUTPUT
 T_REALFSSPEC
 	sv_setpv($arg, GUSIFSp2Encoding(&$var));

==== //depot/maint-5.6/macperl/macos/ext/Mac/typemap#2 (text) ====
Index: perl/macos/ext/Mac/typemap
--- perl/macos/ext/Mac/typemap.~1~	Tue Nov 20 20:30:06 2001
+++ perl/macos/ext/Mac/typemap	Tue Nov 20 20:30:06 2001
@@ -41,7 +41,10 @@
 	else
 	    croak(\"$var is not of type ${ntype}\")
 T_FSSPEC
-	GUSIPath2FSp((char *) SvPV_nolen($arg), &$var)
+	if (GUSIPath2FSp((char *) SvPV_nolen($arg), &$var))
+		croak(\"$var is not a valid file specification\");
+	else
+		0
 T_FIXED
 	$var = X2Fix(SvNV($arg))
 OUTPUT
End of Patch.