blob: 4be4f7d3f475a840806e2875e86d87da06f6772d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#/*@@
# @file ProcessConfiguration.pl
# @date Mon May 8 15:52:08 2000
# @author Tom Goodale
# @desc
#
# @enddesc
#@@*/
#/*@@
# @routine SplitThorns
# @date Mon May 8 16:04:59 2000
# @author Tom Goodale
# @desc
# Splits the thorns hash into those with source and those without source
# @enddesc
# @calls
# @calledby
# @history
#
# @endhistory
#
#@@*/
sub SplitThorns
{
my ($configuration_database, $thorns, $source_thorns, $nosource_thorns) = @_;
foreach $thorn (sort keys %$thorns)
{
if($configuration_database->{"\U$thorn OPTIONS\E"} =~ m/NO_SOURCE/i)
{
$nosource_thorns->{"$thorn"} = $thorns->{"$thorn"};
}
else
{
$source_thorns->{"$thorn"} = $thorns->{"$thorn"};
}
}
}
1;
|