Windows: Fix argument matching for perl scripts

This commit is contained in:
Asanka C. Herath
2010-11-18 20:41:34 -05:00
parent b704105586
commit d267f208ae
2 changed files with 10 additions and 10 deletions

View File

@@ -89,22 +89,22 @@ sub use_response_file($)
for (@ARGV) {
ARG: {
/-q/ && do {
/^-q$/ && do {
$show_module_name = 0;
last ARG;
};
/-1/ && do {
/^-1$/ && do {
$use_indent = 0;
last ARG;
};
/-u/ && do {
/^-u$/ && do {
$strip_leading_underscore = 1;
last ARG;
};
/@(.*)/ && do {
/^@(.*)$/ && do {
use_response_file($1);
last ARG;
};