| Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/pkcs9_asn1.ph |
require '_h2ph_pre.ph';
no warnings 'redefine';
unless(defined(&__pkcs9_asn1_h__)) {
eval 'sub __pkcs9_asn1_h__ () {1;}' unless defined(&__pkcs9_asn1_h__);
require 'stddef.ph';
require 'time.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);
}
}
1;