This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH: perl@11564] introducing perlivp
[perl5.git] / win32 / mdelete.bat
CommitLineData
00b02797
JH
1@echo off
2rem ! This is a batch file to delete all the files on its
3rem ! command line, to work around command.com's del command's
4rem ! braindeadness
5rem !
6rem ! -- BKS, 11-11-2000
7
8:nextfile
9set file=%1
10shift
11if "%file%"=="" goto end
12del %file%
13goto nextfile
14:end
15
8337181f
GS
16@echo off
17rem ! This is a batch file to delete all the files on its
18rem ! command line, to work around command.com's del command's
19rem ! braindeadness
20rem !
21rem ! -- BKS, 11-11-2000
22
23:nextfile
24set file=%1
25shift
26if "%file%"=="" goto end
27del %file%
28goto nextfile
29:end