In-Reply-To: <memo.347962@cix.compulink.co.uk>
> The answer is:
> When the hintsfile is checked, you can access the hash reference
> $self, which is the thingie, that was called %att in former times. So
> if you want to do the equivalent to
> > $att{LIBS} = ['-ldbm -lucb -lc'];
> you would now say
> > $self->{LIBS} = ['-ldbm -lucb -lc'];
Tried this. It does not work. There are two problems: check_hints is
not called as an OO method, so no $self is passed. Secondly no blessed
$self is available anyway. At the point at which check_hints is called,
$self has not been blessed. Suggested patch follows:
*** MakeMaker.pm.orig Tue Oct 31 16:13:20 1995
--- MakeMaker.pm Mon Nov 13 13:18:31 1995
***************
*** 221,227 ****
check_manifest();
}
- check_hints();
$self = {} unless (defined $self);
--- 221,226 ----
***************
*** 253,258 ****
--- 252,259 ----
@{"$class\:\:ISA"} = 'MM';
}
+ $self->check_hints();
+
if (defined $ExtUtils::MakeMaker::Parent[-2]){
$self->{PARENT} = $ExtUtils::MakeMaker::Parent[-2];
my $key;
The exact location of the $self->check_hints() line may not be exactly
correct, but it does seem to work.
Alan Burlison aburlison@cix.compulink.co.uk
> The answer is:
> When the hintsfile is checked, you can access the hash reference
> $self, which is the thingie, that was called %att in former times. So
> if you want to do the equivalent to
> > $att{LIBS} = ['-ldbm -lucb -lc'];
> you would now say
> > $self->{LIBS} = ['-ldbm -lucb -lc'];
Tried this. It does not work. There are two problems: check_hints is
not called as an OO method, so no $self is passed. Secondly no blessed
$self is available anyway. At the point at which check_hints is called,
$self has not been blessed. Suggested patch follows:
*** MakeMaker.pm.orig Tue Oct 31 16:13:20 1995
--- MakeMaker.pm Mon Nov 13 13:18:31 1995
***************
*** 221,227 ****
check_manifest();
}
- check_hints();
$self = {} unless (defined $self);
--- 221,226 ----
***************
*** 253,258 ****
--- 252,259 ----
@{"$class\:\:ISA"} = 'MM';
}
+ $self->check_hints();
+
if (defined $ExtUtils::MakeMaker::Parent[-2]){
$self->{PARENT} = $ExtUtils::MakeMaker::Parent[-2];
my $key;
The exact location of the $self->check_hints() line may not be exactly
correct, but it does seem to work.
Alan Burlison aburlison@cix.compulink.co.uk