fix ^ convertion in command mode dx

[spider.git] / perl / Thingy / Dx.pm

diff --git a/perl/Thingy/Dx.pm b/perl/Thingy/Dx.pm
index dd526ea53c9eb47519b9aeac219fc1a724bbb6ff..35ff5214985bfecf0b7d69bf2de787fe4a573cb2 100644 (file)
--- a/perl/Thingy/Dx.pm
+++ b/perl/Thingy/Dx.pm
@@ -66,7 +66,7 @@ sub gen_DXProt
                my $sd = $thing->{spotdata};
                my $hops = $thing->{hops} || DXProt::get_hops(11);
                my $text = $sd->[3] || ' ';
-               $text =~ s/\^/%5E/g;
+               $text =~ s/\^/\%5E/g;
                my $t = $sd->[2];
                $thing->{DXProt} = sprintf "PC11^%.1f^$sd->[1]^%s^%s^$text^$sd->[4]^$sd->[7]^$hops^~", $sd->[0], cldate($t), ztime($t);
        }