Integrate change #12200 from maintperl;
[p5sagit/p5-mst-13.2.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