probably fix Script erase error

diff --git a/perl/Script.pm b/perl/Script.pm
index 1e94ce595325e61cb69bd4c14ceb140330100751..c18de6304bacf954c378fcdbd14330984e0b9f24 100644 (file)
--- 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;