X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=c2358c3dd2366f56e1d7018c23fde7d474bb288d;hb=867c86a1f58144199f3a37a7b58ee8058452cbad;hp=a0bc6ab9d9e7c3e1400709e9473037e745fd890e;hpb=b29626c537438016f7221c667628d5e49b9f4fce;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index a0bc6ab9..c2358c3d 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -360,6 +360,11 @@ sub is_rbn
 	return $_[0]->{sort} eq 'N';
 }
 
+sub is_dslink
+{
+	return $_[0]->{sort} eq 'L';
+}
+
 # for perl 5.004's benefit
 sub sort
 {