PERFORCE change 13155 for review

Change 13155 by pudge@pudge-mobile on 2001/11/21 03:18:48

	Add UTF-16 coercion.

Affected files ...

.... //depot/maint-5.6/macperl/macos/lib/Mac/AppleEvents/Simple.pm#2 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/lib/Mac/AppleEvents/Simple.pm#2 (text) ====
Index: perl/macos/lib/Mac/AppleEvents/Simple.pm
--- perl/macos/lib/Mac/AppleEvents/Simple.pm.~1~	Tue Nov 20 20:30:06 2001
+++ perl/macos/lib/Mac/AppleEvents/Simple.pm	Tue Nov 20 20:30:06 2001
@@ -460,6 +460,7 @@
 	);
 
 	%AE_GET = (%AE_GET,
+		utxt => $AE_GET{STXT},
 		itxt => $AE_GET{STXT},
 		tTXT => $AE_GET{STXT},
 #		  UREC => sub {
@@ -469,7 +470,10 @@
 
 }
 
-sub _get_coerce { AECoerceDesc(@_)->get }
+sub _get_coerce {
+	my $data = AECoerceDesc(@_) or die $^E;
+	return $data->get;
+}
 
 #=============================================================================#
 
@@ -705,6 +709,10 @@
 
 =over 4
 
+=item v1.01, 
+
+Added utxt coercion to text.  Catch errors in coercion.
+
 =item v1.00, Monday, September 11, 2000
 
 Added C<handle_event> function.
End of Patch.