SPUG: PERL technical interview

[Yitzchak Scott-Thoennes]

On Mon, Jan 23, 2006 at 04:21:52PM -0800, Fred Morris wrote:
> Don't ask me to do this in an interview, but I couldn't resist.
> 
> #!/usr/bin/perl -w
> 
> use Inline C;
 ... 
> #include <stdlib.h>
> 
> void SHELL_SUCCESS() {
> 
>     Inline_Stack_Vars;
>     Inline_Stack_Reset;
> 
> #ifdef EXIT_SUCCESS
>     Inline_Stack_Push(sv_2mortal(newSViv(EXIT_SUCCESS)));
> #else
>     Inline_Stack_Push(sv_2mortal(newSV(0)));
> #endif

Just FYI,

$ perl -wl
use POSIX "/EXIT_*/";
print "EXIT_SUCCESS is @{[EXIT_SUCCESS]}, EXIT_FAILURE is @{[EXIT_FAILURE]}";
__END__
EXIT_SUCCESS is 0, EXIT_FAILURE is 1