diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-04-02 00:21:34 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-04-02 00:21:34 +0000 |
| commit | d76516d77f418014bd76386a9715cc91ae448aa7 (patch) | |
| tree | 682f85ecb130d7a7e3f7fcf42e284a5ba843b552 /bin | |
| parent | 3added0842c7a9ee02390804f376735581bd6d25 (diff) | |
| download | ATCD-d76516d77f418014bd76386a9715cc91ae448aa7.tar.gz | |
ChangeLogTag:Sun Apr 1 17:20:22 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/PerlACE/MSProject.pm | 2 | ||||
| -rwxr-xr-x | bin/pippen.pl | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/bin/PerlACE/MSProject.pm b/bin/PerlACE/MSProject.pm index 5562b6fd24e..c029fb33956 100644 --- a/bin/PerlACE/MSProject.pm +++ b/bin/PerlACE/MSProject.pm @@ -311,7 +311,7 @@ sub Load () foreach my $lib (@libs) { if ($lib =~ m/\.lib$/) { - if (%{$self->{CONFIGS}}->{$config}->{LIBS} !~ m/$lib/) { + if (%{$self->{CONFIGS}}->{$config}->{LIBS} !~ m/\Q$lib\E/) { %{$self->{CONFIGS}}->{$config}->{LIBS} .= " $lib"; } $found = 1; diff --git a/bin/pippen.pl b/bin/pippen.pl index fea2bcf3040..8ac49b14eeb 100755 --- a/bin/pippen.pl +++ b/bin/pippen.pl @@ -99,7 +99,7 @@ while ( $#ARGV >= 0) shift; } -if (!defined @configs) { +if ($#configs < 0) { if (!defined $ENV{PIPPEN_CONFIGS}) { print STDERR "Error: No config specified\n"; exit 1; @@ -241,7 +241,7 @@ foreach my $project (keys %projects) { print " \"$proj_config\"" if ($verbose); my $name = $proj->DepOutputFile ($proj_config); - %names->{$name} = $project; + %names->{lc $name} = $project; @{%projects->{$project}->{CONFIGS}->{$proj_config}->{DEPS}} = split / /, $proj->Libs ($proj_config); if ($proj->UsesTAOIDL () == 1) { @@ -269,7 +269,7 @@ foreach my $project (keys %projects) { print " Before:", join (" ", @{%projects->{$project}->{CONFIGS}->{$config}->{DEPS}}), "\n" if ($verbose); my @newdeps; foreach my $dep (@{%projects->{$project}->{CONFIGS}->{$config}->{DEPS}}) { - if (defined %names->{$dep}) { + if (defined %names->{lc $dep}) { push @newdeps, $dep; } } @@ -292,8 +292,8 @@ do { foreach my $config (keys %{%projects->{$project}->{CONFIGS}}) { if (%projects->{$project}->{BUILD} == 1) { foreach my $dep (@{%projects->{$project}->{CONFIGS}->{$config}->{DEPS}}) { - if (%projects->{%names->{$dep}}->{BUILD} != 1) { - %projects->{%names->{$dep}}->{BUILD} = 1; + if (%projects->{%names->{lc $dep}}->{BUILD} != 1) { + %projects->{%names->{lc $dep}}->{BUILD} = 1; $finished = 0; } } @@ -348,7 +348,7 @@ do { if (%projects->{$project}->{CONFIGS}->{$config}->{DONE} != 1) { my $depsleft = 0; foreach my $dep (@{%projects->{$project}->{CONFIGS}->{$config}->{DEPS}}) { - if (%projects->{%names->{$dep}}->{CONFIGS}->{$config}->{DONE} != 1) { + if (%projects->{%names->{lc $dep}}->{CONFIGS}->{$config}->{DONE} != 1) { ++$depsleft; } } |