[pve-devel] r5398 - pve-cluster/trunk/data/perl

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-01-19 13:57:23 +0100 (Wed, 19 Jan 2011)
New Revision: 5398

Modified:
   pve-cluster/trunk/data/perl/Cluster.pm
Log:
correctly encode $ident (ascii)


Modified: pve-cluster/trunk/data/perl/Cluster.pm
===================================================================
--- pve-cluster/trunk/data/perl/Cluster.pm	2011-01-19 12:35:23 UTC (rev 5397)
+++ pve-cluster/trunk/data/perl/Cluster.pm	2011-01-19 12:57:23 UTC (rev 5398)
@@ -478,6 +478,8 @@
    $msg = "empty message" if !$msg;
 
    $ident = "" if !$ident;
+   $ident = encode("ascii", decode_utf8($ident), 
+		   sub { sprintf "\\u%04x", shift });
 
    my $utf8 = decode_utf8($msg);