oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Windows: Fix argument matching for perl scripts

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

12
cf/w32-def-from-dll.pl
View File

@@ -170,7 +170,7 @@ sub use_response_file($)
open (RF, '<', $fn) or die "Can't open response file $fn";
while (<RF>) {
/(\S+)/ && do {
/^(\S+)$/ && do {
process_file($1);
}
}
@@ -182,27 +182,27 @@ print "EXPORTS\n";
for (@ARGV) {
ARG: {
/-m(.*)/ && do {
/^-m(.*)$/ && do {
$module_name = $1.".";
last ARG;
};
/-l(.*)/ && do {
/^-l(.*)$/ && do {
$local_prefix = $1."_";
last ARG;
};
/-a/ && do {
/^-a$/ && do {
$always_export = 1;
last ARG;
};
/-e(.*)/ && do {
/^-e(.*)$/ && do {
build_forwarder_target_list($1);
last ARG;
};
/@(.*)/ && do {
/^@(.*)$/ && do {
use_response_file($1);
last ARG;
};

8
cf/w32-list-externs-from-objs.pl
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;
};