diff options
| author | AwesomeAdam54321 <adam.faiz@disroot.org> | 2025-11-02 20:16:07 +0800 |
|---|---|---|
| committer | Sughosha <sughosha@disroot.org> | 2025-11-09 13:02:30 +0530 |
| commit | 0a6dbaeb668db011fa470cc6bd3a8bc9539b515d (patch) | |
| tree | ca2c81f1828e8589eae373e6207fade7ea06e87b /gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch | |
| parent | 06ab49a653361f59dccea6c62da51117a0266979 (diff) | |
gnu: perl-crypt-des: Fix build.
* gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch: New file.
* gnu/local.mk: Register patch.
* gnu/packages/games.scm (perl-crypt-des)[patches]: Add patch.
Change-Id: Ia9d55640f7ffcc5cc24cff34c246c1e6b870cec7
Signed-off-by: Sughosha <sughosha@disroot.org>
Diffstat (limited to 'gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch')
| -rw-r--r-- | gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch b/gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch new file mode 100644 index 00000000000..fa65def771b --- /dev/null +++ b/gnu/packages/patches/perl-crypt-des-implicit-func-decl.patch @@ -0,0 +1,34 @@ +https://src.fedoraproject.org/rpms/perl-Crypt-DES/raw/0a4557f6b118387730b895037e4a17c90f212e68/f/perl-Crypt-DES-fedora-c99.patch +https://rt.cpan.org/Public/Bug/Display.html?id=133363 +https://rt.cpan.org/Public/Bug/Display.html?id=133412 +https://bugs.gentoo.org/870427 +--- a/DES.xs ++++ b/DES.xs +@@ -36,7 +36,7 @@ _des_expand_key(key) + if (key_len != sizeof(des_user_key)) + croak("Invalid key"); + +- perl_des_expand_key((i8 *)key, ks); ++ perl_des_expand_key((unsigned char *)key, ks); + + ST(0) = sv_2mortal(newSVpv((char *)ks, sizeof(ks))); + } +@@ -66,7 +66,8 @@ _des_crypt(input, output, ks, enc_flag) + + (SvUPGRADE(output, SVt_PV)); + +- perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag); ++ perl_des_crypt((unsigned char *)input, (unsigned char *)SvGROW(output, output_len), ++ (unsigned long *)ks, enc_flag); + + SvCUR_set(output, output_len); + *SvEND(output) = '\0'; +--- a/_des.h ++++ b/_des.h +@@ -5,3 +5,5 @@ typedef unsigned long des_ks[32]; + void _des_crypt( des_cblock in, des_cblock out, des_ks key, int encrypt ); + void _des_expand_key( des_user_key userKey, des_ks key ); + ++void perl_des_expand_key(des_user_key userKey, des_ks ks); ++void perl_des_crypt( des_cblock input, des_cblock output, des_ks ks, int encrypt ); + |