From c5f561c7ffb62f108df2a0df05d1b29128a50cd7 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 11 May 2020 19:05:37 +0100
Subject: [PATCH] probably fix Script erase error

---
 perl/Script.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1