7 des_key_schedule T_SCHEDULE
8 des_key_schedule * T_SCHEDULE
12 $var=(des_cblock *)SvPV($arg,len);
15 croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ);
19 $var=(des_key_schedule *)SvPV($arg,len);
20 if (len < DES_SCHEDULE_SZ)
22 croak(\"$var needs to be at least %u bytes long\",
28 sv_setpvn($arg,(char *)$var,DES_KEY_SZ);
31 sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ);
34 sv_setpvn($arg,(char *)$var,len);