|
|
|
|
@ -1500,7 +1500,7 @@ EOF |
|
|
|
|
my ($self, $key) = @_; |
|
|
|
|
my $name = $self->name(); |
|
|
|
|
|
|
|
|
|
return exists $main::package_opts{$name}{$key}; |
|
|
|
|
return exists $self->{options}{$key}; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# Sets the option refered to by the first parameter (a string) to the |
|
|
|
|
@ -1524,7 +1524,7 @@ EOF |
|
|
|
|
my $self = shift; |
|
|
|
|
my $other = assert_isa(shift, 'Module'); |
|
|
|
|
|
|
|
|
|
$main::package_opts{$self->name()} = dclone($main::package_opts{$other->name()}); |
|
|
|
|
$self->{options} = dclone($other->{options}); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# Returns the path to the desired directory type (source or build), |
|
|
|
|
|