Change 14399: Don't crash on Help for long text (bug #506672)

Change 14399 by pudge@pudge-mobile on 2002/01/23 21:00:29

	Don't crash on Help for long text (bug #506672)

Affected files ...

.... //depot/maint-5.6/macperl/macos/macperl/MPHelp.c#3 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/MPHelp.c#3 (text) ====
Index: perl/macos/macperl/MPHelp.c
--- perl/macos/macperl/MPHelp.c.~1~	Wed Jan 23 14:15:05 2002
+++ perl/macos/macperl/MPHelp.c	Wed Jan 23 14:15:05 2002
@@ -5,6 +5,9 @@
 Language	:	MPW C
 
 $Log: MPHelp.c,v $
+Revision 1.3  2002/01/23 21:56:53  pudge
+Don't crash if very long word selected for help (bug #506672)
+
 Revision 1.2  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -316,6 +319,10 @@
 	} else 
 		pos = 0;
 		
+	// Maximum is 255 characters
+	if (pos > 255)
+		pos = 255;
+
 	if (!pos) {
 		MetaHelp("\pYou didn't select any text to look up.",
 					(StringPtr) "\p", (StringPtr) "\p", (StringPtr) "\p");
End of Patch.