Fix utils/perldoc.PL for dos-djgpp:

[p5sagit/p5-mst-13.2.git] / vms / test.com

diff --git a/vms/test.com b/vms/test.com
index 114cb24..201b5f5 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -111,7 +111,7 @@ $| = 1;
 
 @ARGV = grep($_,@ARGV);  # remove empty elements due to "''p1'" syntax
 
-if ($ARGV[0] eq '-v') {
+if (lc($ARGV[0]) eq '-v') {
     $verbose = 1;
     shift;
 }