| 1 | https://src.fedoraproject.org/rpms/perl-Crypt-DES/raw/0a4557f6b118387730b895037e4a17c90f212e68/f/perl-Crypt-DES-fedora-c99.patch
|
| 2 | https://rt.cpan.org/Public/Bug/Display.html?id=133363
|
| 3 | https://rt.cpan.org/Public/Bug/Display.html?id=133412
|
| 4 | https://bugs.gentoo.org/870427
|
| 5 | |
| 6 | |
| 7 | @@ -36,7 +36,7 @@ _des_expand_key(key)
|
| 8 | if (key_len != sizeof(des_user_key))
|
| 9 | croak("Invalid key");
|
| 10 |
|
| 11 | - perl_des_expand_key((i8 *)key, ks);
|
| 12 | + perl_des_expand_key((unsigned char *)key, ks);
|
| 13 |
|
| 14 | ST(0) = sv_2mortal(newSVpv((char *)ks, sizeof(ks)));
|
| 15 | }
|
| 16 | @@ -66,7 +66,8 @@ _des_crypt(input, output, ks, enc_flag)
|
| 17 |
|
| 18 | (SvUPGRADE(output, SVt_PV));
|
| 19 |
|
| 20 | - perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag);
|
| 21 | + perl_des_crypt((unsigned char *)input, (unsigned char *)SvGROW(output, output_len),
|
| 22 | + (unsigned long *)ks, enc_flag);
|
| 23 |
|
| 24 | SvCUR_set(output, output_len);
|
| 25 | *SvEND(output) = '\0';
|
| 26 | |
| 27 | |
| 28 | @@ -5,3 +5,5 @@ typedef unsigned long des_ks[32];
|
| 29 | void _des_crypt( des_cblock in, des_cblock out, des_ks key, int encrypt );
|
| 30 | void _des_expand_key( des_user_key userKey, des_ks key );
|
| 31 |
|
| 32 | +void perl_des_expand_key(des_user_key userKey, des_ks ks);
|
| 33 | +void perl_des_crypt( des_cblock input, des_cblock output, des_ks ks, int encrypt );
|
| 34 |
|