X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FScript.pm;h=c18de6304bacf954c378fcdbd14330984e0b9f24;hb=8b2a7cbe3ddf35abde3a4a8f8f610bd827835f1b;hp=1e94ce595325e61cb69bd4c14ceb140330100751;hpb=124e0718367cbdfff9985d07bfb0587a85c83d76;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;