now working to 1st order OK with two nodes.

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index dc4257a8689c2cb6e329edfa56e878a742af700f..68405f8f4236e4521cf6e320fe0be1bbafc285b4 100644 (file)
--- 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