Fix build with perl-5.18.
This commit is contained in:
parent
a2bad5478c
commit
94b2ff9a1f
2 changed files with 19 additions and 1 deletions
|
@ -1,5 +1,6 @@
|
|||
$NetBSD: distinfo,v 1.6 2007/02/22 12:07:34 wiz Exp $
|
||||
$NetBSD: distinfo,v 1.7 2013/06/17 11:25:27 wiz Exp $
|
||||
|
||||
SHA1 (Crypt-IDEA-1.08.tar.gz) = c154cb0f9995844573d913c3fc87ae7c0d29b183
|
||||
RMD160 (Crypt-IDEA-1.08.tar.gz) = 5e2e352d8d03997d9ef4ebd98d47f0ab6d044224
|
||||
Size (Crypt-IDEA-1.08.tar.gz) = 7045 bytes
|
||||
SHA1 (patch-IDEA.xs) = 59dc138b5b1b812e9516d1eee3467a6adc74cc8e
|
||||
|
|
17
security/p5-Crypt-IDEA/patches/patch-IDEA.xs
Normal file
17
security/p5-Crypt-IDEA/patches/patch-IDEA.xs
Normal file
|
@ -0,0 +1,17 @@
|
|||
$NetBSD: patch-IDEA.xs,v 1.1 2013/06/17 11:25:27 wiz Exp $
|
||||
|
||||
Fix build with perl-5.18, from
|
||||
https://rt.cpan.org/Public/Bug/Display.html?id=82010
|
||||
|
||||
--- IDEA.xs.orig 2003-01-19 02:48:04.000000000 +0000
|
||||
+++ IDEA.xs
|
||||
@@ -71,8 +71,7 @@ idea_crypt(input, output, ks)
|
||||
output = sv_newmortal();
|
||||
output_len = 8;
|
||||
|
||||
- if (!SvUPGRADE(output, SVt_PV))
|
||||
- croak("cannot use output argument as lvalue");
|
||||
+ SvUPGRADE(output, SVt_PV);
|
||||
|
||||
idea_crypt((u_int16_t *)input, (u_int16_t *)SvGROW(output, output_len), (u_int16_t *)ks);
|
||||
|
Loading…
Reference in a new issue