X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=9c10796b8ef4f924f9dc46cbb4eeb9c5053d5cb2;hb=956e3acab807900fdbccc0e2fa5e999327a1c1ce;hp=4c7ab06e3bd94b15b7f6be5afcc4a6f5085244f2;hpb=9d95f3b1af59bbb25d38cb2ff26f431226547d45;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 4c7ab06e..9c10796b 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -44,6 +44,14 @@ $filterdef = bless ([
 			 ], 'Filter::Cmd');
 
 
+# create a Spot Object
+sub new
+{
+	my $class = shift;
+	my $self = [ @_ ];
+	return bless $self, $class;
+}
+
 sub decodefreq
 {
 	my $dxchan = shift;
@@ -113,7 +121,7 @@ sub add
 	my $spotter_cq = (@dxcc > 0 ) ? $dxcc[1]->cq() : 0;
 	push @out, $spotter_dxcc;
 	push @out, $spot[5];
-	
+
 	my $buf = join("\^", @out);
 
 	# compare dates to see whether need to open another save file (remember, redefining $fp