1			/*******************************************************************************
     2			*
     3			*  Perl/Pollution/Portability
     4			*
     5			********************************************************************************
     6			*
     7			*  $Revision: 6 $
     8			*  $Author: mhx $
     9			*  $Date: 2005/01/31 08:10:50 +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			#include "XSUB.h"
    25			
    26			#ifndef PATCHLEVEL
    27			#include "patchlevel.h"
    28			#endif
    29			
    30			#define NEED_newCONSTSUB_GLOBAL
    31			#include "ppport.h"
    32			
    33			void call_newCONSTSUB_2(void)
    34	           1    {
    35	           1      newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2));
    36			}