Re^4: How to avoid having to remove PERL_DL

I chatted with people about this. Apparently $self is blessed into PACK001 which is not ISA anything useful. The proper thing to do is call directly into the MM class (not ExtUtils::MM though). The following code is what actually works. I'm getting a taste of why ExtUtils::MakeMaker is being killed. Yuck. I hope it dies a quick death.

sub MY::test_via_harness {
    local $_ = shift()->MM::test_via_harness( @_ );
    s/\bPERL_DL_NONLAZY=1 +//g;
    return $_;
}

sub MY::test_via_script {
    local $_ = shift()->MM::test_via_script( @_ );
    s/\bPERL_DL_NON_LAZY=1 +//g;
    return $_;
}
[download]

Comment on Re^4: How to avoid having to remove PERL_DL_NONLAZY=1 from Makefile? Download Code

Replies are listed 'Best First'.
Re^5: How to avoid having to remove PERL_DL_NONLAZY=1 from Makefile? by tlm (Prior) on Mar 31, 2005 at 22:34 UTC
Yeah, it's a mess: DB<1> c 13 MY::CODE(0x853f698)(Makefile.PL:13): 13: local $_ = $self->SUPER::test_via_script($perl, $tests); DB<1> p $self PACK001=HASH(0x8387700) DB<2> x \@PACK001::ISA 0 ARRAY(0x8768988) 0 'MM' DB<3> x \@MM::ISA 0 ARRAY(0x83cccb8) 0 'ExtUtils::MM' DB<4> x \@ExtUtils::MM::ISA 0 ARRAY(0x83ccb14) 0 'ExtUtils::MM_Unix' 1 'ExtUtils::Liblist' 2 'ExtUtils::MakeMaker' DB<6> x \@ExtUtils::MM_Unix::ISA 0 ARRAY(0x8481508) 0 'ExtUtils::MM_Any' DB<7> x \@ExtUtils::MM_Any::ISA 0 ARRAY(0x8538cc4) 0 'File::Spec' [download] the lowliest monk	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: How to avoid having to remove PERL_DL_NONLAZY=1 from Makefile?
by tlm (Prior) on Mar 31, 2005 at 22:34 UTC

Yeah, it's a mess:

  DB<1> c 13
MY::CODE(0x853f698)(Makefile.PL:13):
13:       local $_ = $self->SUPER::test_via_script($perl, $tests);
  DB<1> p $self
PACK001=HASH(0x8387700)
  DB<2> x \@PACK001::ISA
0  ARRAY(0x8768988)
   0  'MM'
  DB<3> x \@MM::ISA     
0  ARRAY(0x83cccb8)
   0  'ExtUtils::MM'
  DB<4> x \@ExtUtils::MM::ISA
0  ARRAY(0x83ccb14)
   0  'ExtUtils::MM_Unix'
   1  'ExtUtils::Liblist'
   2  'ExtUtils::MakeMaker'
  DB<6> x \@ExtUtils::MM_Unix::ISA
0  ARRAY(0x8481508)
   0  'ExtUtils::MM_Any'
  DB<7> x \@ExtUtils::MM_Any::ISA 
0  ARRAY(0x8538cc4)
   0  'File::Spec'
[download]

the lowliest monk

[reply]
[d/l]