https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 00b02797 JH |
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 | ||
| 8337181f GS |
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 |