X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FScript.pm;h=c18de6304bacf954c378fcdbd14330984e0b9f24;hb=c5f561c7ffb62f108df2a0df05d1b29128a50cd7;hp=1e94ce595325e61cb69bd4c14ceb140330100751;hpb=07f2fed2f2949fb9e3f7f86c208150841bdeb30f;p=spider.git

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;