I'm using the following:
use Inline (ASM => 'DATA',
AS => 'as',
PROTO => { getsp => 'unsigned long()' });
... perl code ...
__END__
__ASM__
.text
.globl getsp
getsp: movl %esp,%eax
ret
I would like my program to run even if Inline ASM isn't
available. I have unsuccessfully tried to use eval
when require(ing) Inline ASM and use(ing) Inline ASM.
I've tried setting $SIG{__DIE__} so that I can trap
it and I'm not winning. I'm resorting to a command
line option that the user can specify to skip
'use Inline ASM' if it's not available. However, this
seems klunky.
Any recommendations are appreciated.
Thanks in advance for your help.
-Holt
