#include "pcap.h"
#ifdef WIN32
#undef caddr_t
#endif

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
//#include <pcap.h> used to be here (D'oh! i should've just done a diff)

##</code><code>##

    'INC'          => q[ -IE:\new\wpdpack_3_0\wpdpack\Include ],
    'LIBS'         => [ q[ -LE:\new\wpdpack_3_0\wpdpack\Lib -lwpcap.lib ] ], 


##</code><code>##

Pcap.c
Pcap.c(749) : warning C4047: 'function' : 'struct _PerlIO ** ' differs in levels of indirection from 'struct _iobuf *'
Pcap.c(749) : warning C4024: 'Perl_do_open' : different types for formal and actual parameter 8

##</code><code>##

FILE *
pcap_file(p)
	pcap_t *p

##</code><code>##

XS(XS_Net__Pcap_file); /* prototype to pass -Wmissing-prototypes */
XS(XS_Net__Pcap_file)
{
    dXSARGS;
    if (items != 1)
	Perl_croak(aTHX_ "Usage: Net::Pcap::file(p)");
    {
	pcap_t *	p;
	FILE *	RETVAL;

        if (sv_derived_from(ST(0), "pcap_tPtr")) {
            IV tmp = SvIV((SV*)SvRV(ST(0)));
            p = (pcap_t *) tmp;
        }
        else
            croak("p is not of type pcap_tPtr");

	RETVAL = pcap_file(p);
	ST(0) = sv_newmortal();
	{
	    GV *gv = newGVgen("Net::Pcap");
	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, RETVAL) )
		sv_setsv(ST(0), sv_bless(newRV((SV*)gv), gv_stashpv("Net::Pcap",1)));
	    else
		ST(0) = &PL_sv_undef;
	}
    }
    XSRETURN(1);
}

##</code><code>##

INPUT
T_IN
	$var = IoIFP(sv_2io($arg))
###################
OUTPUT
T_IN
	{
	    GV *gv = newGVgen("$Package");
	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	    else
		$arg = &PL_sv_undef;
	}