MacPerl::DoAppleScript and $@

I have been pondering putting the error from MacPerl::DoAppleScript into $@:

	perl -le 'MacPerl::DoAppleScript("da"); die $@ if $@'
	# The variable da is not defined.
	File '-e'; Line 1

Any thoughts?  The only problem I forsee is the regular problems with
populating $@, and getting $@ confused ... since $@ will be blanked out at
each time DoAppleScript is called.

The problem is that it is difficult and not entirely reliable to tell if
DoAppleScript succeeds, and if it does fail, you don't know why.  So this
should take care of that.

Thoughts?

-- 
Chris Nandor                      [email protected]    http://pudge.net/
Open Source Development Network    [email protected]     http://osdn.com/