X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml%2FText.pm;h=3b8b5b4438797e5919b0989d24cc1feb7b0c772d;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=b4a95b44a850d3c8dfc52fc4654829e309b18147;hpb=776d7bb9277c9d24708e297f240395b51b0aaa93;p=spider.git diff --git a/perl/DXXml/Text.pm b/perl/DXXml/Text.pm index b4a95b44..3b8b5b44 100644 --- a/perl/DXXml/Text.pm +++ b/perl/DXXml/Text.pm @@ -1,7 +1,7 @@ # # XML Text handler # -# $Id$ +# # # Copyright (c) Dirk Koopman, G1TLH # @@ -40,7 +40,7 @@ sub topcxx my $dxchan = shift; my @out; - my $ref = DXUser->get_current($self->{to}); + my $ref = DXUser::get_current($self->{to}); for (split /(?:%0D)?\%0A/, $self->{content}) { my $line = $_; $line =~ s/\s*$//;