File: t_upstream_uninitialized_value.diff

package info (click to toggle)
libxml-stream-perl 1.24-4%2Bdeb12u1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 952 kB
  • sloc: perl: 4,821; xml: 64; makefile: 4
file content (20 lines) | stat: -rw-r--r-- 578 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Author: Mikael Magnusson <mikma@users.sourceforge.net>
Forwarded: https://github.com/dap/XML-Stream/issues/14
Description: Fix an 'uninitialized value' warning

--- a/lib/XML/Stream.pm
+++ b/lib/XML/Stream.pm
@@ -2164,7 +2164,12 @@
         $response = $self->{SIDS}->{$sid}->{sasl}->{client}->client_step($challenge);
     }
 
-    my $response64 = MIME::Base64::encode_base64($response,"");
+    my $response64 = "";
+    if (defined $response)
+    {
+        $response64 = MIME::Base64::encode_base64($response,"");
+    }
+
     $self->SASLResponse($sid,$response64);
 }