X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=80b1a5d6eeb916b94fd45bfc1f215bedd627746c;hb=5c15f6e5521944f56427ef069f449739ce84ce9f;hp=c87e96ca8f4378d2e97d70b2b72009bb8ef46c79;hpb=9ac37bd8bf268d391c075ced5675ca5ae5542916;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index c87e96ca..80b1a5d6 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -210,7 +210,7 @@ sub pc28
 sub pc29 
 {
 	my ($fromnode, $tonode, $stream, $text) = @_;
-	$text = ' ' unless $text && length $text > 0;
+	$text = ' ' unless defined $text && length $text > 0;
 	$text =~ s/\^/%5E/og;			# remove ^
 	return "PC29^$fromnode^$tonode^$stream^$text^~";
 }