3bd4c18c44
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Crypt-DES?expand=0&rev=18
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);
|
|
|