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
index d3f5d2c..89b69e3 100644 (file)
@@ -13,7 +13,9 @@ if "%1" == "on" goto yes
 if "%1" == "off" goto no
 if "%1" == "/?" goto usage
 if "%1" == "/h" goto usage
-goto dontknow
+
+Rem Invalid input and so display the help message
+goto Usage
 
 :now
 if "%USE_D2%" == "" echo USE_D2 is removed, uses /d1
@@ -30,11 +32,9 @@ Set USE_D2=
 echo ....USE_D2 is removed. uses /d1
 goto exit
 
-:dontknow
-goto Usage
-
 :Usage
  @echo on
  @echo "Usage: ToggleD2 [on|off]"
  @echo "Usage: ToggleD2 /now" - To display current setting
+
 :exit