| OLD | NEW |
| (Empty) |
| 1 # | |
| 2 # DES SECTION | |
| 3 # | |
| 4 deschar * T_DESCHARP | |
| 5 des_cblock * T_CBLOCK | |
| 6 des_cblock T_CBLOCK | |
| 7 des_key_schedule T_SCHEDULE | |
| 8 des_key_schedule * T_SCHEDULE | |
| 9 | |
| 10 INPUT | |
| 11 T_CBLOCK | |
| 12 $var=(des_cblock *)SvPV($arg,len); | |
| 13 if (len < DES_KEY_SZ) | |
| 14 { | |
| 15 croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ); | |
| 16 } | |
| 17 | |
| 18 T_SCHEDULE | |
| 19 $var=(des_key_schedule *)SvPV($arg,len); | |
| 20 if (len < DES_SCHEDULE_SZ) | |
| 21 { | |
| 22 croak(\"$var needs to be at least %u bytes long\", | |
| 23 DES_SCHEDULE_SZ); | |
| 24 } | |
| 25 | |
| 26 OUTPUT | |
| 27 T_CBLOCK | |
| 28 sv_setpvn($arg,(char *)$var,DES_KEY_SZ); | |
| 29 | |
| 30 T_SCHEDULE | |
| 31 sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ); | |
| 32 | |
| 33 T_DESCHARP | |
| 34 sv_setpvn($arg,(char *)$var,len); | |
| OLD | NEW |