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
1 @echo off
2 rem ! This is a batch file to delete all the files on its
3 rem ! command line, to work around command.com's del command's
4 rem ! braindeadness
5 rem !
6 rem !    -- BKS, 11-11-2000
7
8 :nextfile
9 set file=%1
10 shift
11 if "%file%"=="" goto end
12 del %file%
13 goto nextfile
14 :end
15
16 @echo off
17 rem ! This is a batch file to delete all the files on its
18 rem ! command line, to work around command.com's del command's
19 rem ! braindeadness
20 rem !
21 rem !    -- BKS, 11-11-2000
22
23 :nextfile
24 set file=%1
25 shift
26 if "%file%"=="" goto end
27 del %file%
28 goto nextfile
29 :end