X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=462cb673f7fd02db3b00e6bb94a4e4a4ba9df3df;hb=4c8be388424d403a33d72798b02e49c4f1bfd0ef;hp=6c5c9162ea2547d129b6e84a41525698baab8588;hpb=2538c30a81811749c0cdaf55b8c9f65ee7c5167d;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 6c5c9162..462cb673 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -102,9 +102,6 @@ sub init mkdir "$dirprefix", 0777 if !-e "$dirprefix"; $fp = DXLog::new($dirprefix, "dat", 'd'); $statp = DXLog::new($dirprefix, "dys", 'd'); - my $rm = $main::is_win ? 'del' : 'rm -f'; - system("$rm $main::data/$dirprefix/*/*.bys"); - system("$rm $main::data/$dirprefix/*/*.cys"); } sub prefix