From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 11 May 2020 18:05:37 +0000 (+0100)
Subject: probably fix Script erase error
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b2a7cbe3ddf35abde3a4a8f8f610bd827835f1b;p=spider.git

probably fix Script erase error
---

diff --git a/perl/Script.pm b/perl/Script.pm
index 1e94ce59..c18de630 100644
--- a/perl/Script.pm
+++ b/perl/Script.pm
@@ -118,7 +118,7 @@ sub lines
 sub erase
 {
 	my $self = shift;
-	my $call = clean($self->call);
+	my $call = clean($self->{call});
 
 	my $fn;
 	my $try;