This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[perl5.git] / NetWare / bat / ToggleD2.bat
CommitLineData
2986a63f
JH
1@echo off
2@rem AUTHOR: sgp
3@rem CREATED: 23rd August 1999
4@rem LAST REVISED: 6th April 2001
5@rem Batch file to toggle D2 flag for debugging in case of debug build
6@rem and remove in case of release build.
7@rem This file is called from BuildType.bat
8
9if "%1" == "" goto Usage
10
11if "%1" == "/now" goto now
12if "%1" == "on" goto yes
13if "%1" == "off" goto no
14if "%1" == "/?" goto usage
15if "%1" == "/h" goto usage
91c54917
NIS
16
17Rem Invalid input and so display the help message
18goto Usage
2986a63f
JH
19
20:now
21if "%USE_D2%" == "" echo USE_D2 is removed, uses /d1
22if not "%USE_D2%" == "" echo USE_D2 is set, uses /d2
23goto exit
24
25:yes
26Set USE_D2=1
27echo ....USE_D2 is set, uses /d2
28goto exit
29
30:no
31Set USE_D2=
32echo ....USE_D2 is removed. uses /d1
33goto exit
34
2986a63f
JH
35:Usage
36 @echo on
37 @echo "Usage: ToggleD2 [on|off]"
38 @echo "Usage: ToggleD2 /now" - To display current setting
91c54917 39
2986a63f 40:exit