X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=68405f8f4236e4521cf6e320fe0be1bbafc285b4;hb=98b0984d0ab735a1ae2d96e36728c7e334cf5fd7;hp=dc4257a8689c2cb6e329edfa56e878a742af700f;hpb=05a7fdd4a58c51e21b55b0509b054b625839290c;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index dc4257a8..68405f8f 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -372,7 +372,7 @@ sub hexstamp
 			$hexlastlet = chr(ord($hexlastlet) + 1);
 		} while ($hexlastlet eq '^');
 	}
-	return sprintf "%c%08X", $hexlastlet, $hexlasttime;
+	return sprintf "%s%08X", $hexlastlet, $hexlasttime;
 }
 
 sub pc58