[MacPerl] catching compilation error messages from AS

[Gakuji Ohtori <gaji@tka.att.ne.jp>]

Hi all,

The following example,

	tell application "MacPerl"
		try
			set theResult to Do Script "printaa 'hello!';"
		on error theErrMsg
			return theErrMsg
		end try
	end tell

returns only the text "MacPerl got an error: An error of type 1 has
occurred." while more specific information is displayed in MacPerl's
console window.  How can I get the error messages displayed in
MacPerl's console window from the AppleScript?  The file 
"MacPerl.Frontend" says

 - Batch mode redirects standard output and error to the reply apple event. Standard
   output is put into the direct parameter of the reply, while standard error is
   put into element [diag] of parameter [OUTP].

But the script

	tell application "MacPerl"
		Do Script "warn 'hello!';" mode Batch
	end tell

does not return anything, does it?  How can I get element [diag] of
parameter [OUTP]?

I know I can redirect the standard error to the standard output
and use eval to get the error messages, but that's not really
what I'm looking for.  I'm looking for the way to get the information
displayed in the console window when the compilation fails.

Gaji

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org