22 lines
583 B
Diff
22 lines
583 B
Diff
|
Description: update for SvUPGRADE()
|
||
|
|
Origin: CPAN RT
|
||
|
|
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=82943
|
||
|
|
Bug-Debian: http://bugs.debian.org/708468
|
||
|
|
Forwarded: not-needed
|
||
|
|
Author: Zefram <zefram [...] fysh.org>
|
||
|
|
Reviewed-by: gregor herrmann <gregoa@debian.org>
|
||
|
|
Last-Update: 2013-05-17
|
||
|
|
|
||
|
|
--- a/DES.xs
|
||
|
|
+++ b/DES.xs
|
||
|
|
@@ -64,8 +64,7 @@
|
||
|
|
output = sv_newmortal();
|
||
|
|
output_len = 8;
|
||
|
|
|
||
|
|
- if (!SvUPGRADE(output, SVt_PV))
|
||
|
|
- croak("cannot use output argument as lvalue");
|
||
|
|
+ (void) SvUPGRADE(output, SVt_PV);
|
||
|
|
|
||
|
|
perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag);
|
||
|
|
|