1			/*******************************************************************************
     2			*
     3			*  Perl/Pollution/Portability
     4			*
     5			********************************************************************************
     6			*
     7			*  $Revision: 6 $
     8			*  $Author: mhx $
     9			*  $Date: 2005/02/02 21:47:34 +0100 $
    10			*
    11			********************************************************************************
    12			*
    13			*  Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz.
    14			*  Version 2.x, Copyright (C) 2001, Paul Marquess.
    15			*  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
    16			*
    17			*  This program is free software; you can redistribute it and/or
    18			*  modify it under the same terms as Perl itself.
    19			*
    20			*******************************************************************************/
    21			
    22			#include "EXTERN.h"
    23			#include "perl.h"
    24			
    25			#define NO_XSLOCKS
    26			#include "XSUB.h"
    27			
    28			#include "ppport.h"
    29			
    30			static void throws_exception(int throw_e)
    31	           2    {
    32	           2      if (throw_e)
    33	           1        croak("boo\n");
    34			}
    35			
    36			int exception(int throw_e)
    37	           2    {
    38			  dTHR;
    39	           2      dXCPT;
    40	           2      SV *caught = get_sv("Devel::PPPort::exception_caught", 0);
    41			
    42	           2      XCPT_TRY_START {
    43	           2        throws_exception(throw_e);
    44	           2      } XCPT_TRY_END
    45			
    46	           2      XCPT_CATCH
    47			  {
    48	           1        sv_setiv(caught, 1);
    49	           1        XCPT_RETHROW;
    50			  }
    51			
    52	           1      sv_setiv(caught, 0);
    53			
    54	           1      return 42;
    55			}
    56			
    57			void call_newCONSTSUB_3(void)
    58	           1    {
    59	           1      newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_3", newSViv(3));
    60			}
    61