----- Original Message ----- 
From: Michael G Schwern <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Saturday, March 29, 2003 2:17
Subject: Re: 5.8.1-to-be snapshot: please test


> $ write sys$output f$getdvi(f$envir("DEFAULT"),"ACPTYPE")
> F11V2
> 
> Hmmm, guess I am using the older FS.  Why am I not seeing his problems?
> 
> Jesper, are you *sure* you're using the snapshot from makemaker.org?
> http://www.makemaker.org/src/ExtUtils-MakeMaker-snap.tgz
> 
> Send me your descrip.mms
> 

I attach my descrip.mms, and I can confirm that I'm using the snapshot you're 
referring to. I might add, that installed.pm is also identical to the one found in 
perl 5.8.0. Since 5.8.0,  installed.t has had a small change, which is unrelated to 
the failing test 22. I must (with some blushing) admit, that I also had installed.t 
test 22 fail in perl 5.8.0, but did not do anything about it at the time.

I can say, that from my point of view, the test 22 failure is completely understood 
and explained: Installed.pm tries to use a single-case filename in order to 
reconstruct a mixed-case module name, and this of course cannot work.

Why is Michael then unable to reproduce it? OK, it was not ODS-5, then it must be 
something else. I have attached a patch to installed.t, which adds a Data::Dumper 
printout of the Installed object structure immediately before test 22. When I run 
this, I get

[snip]
ok 19 - The object isa ExtUtils::Installed
ok 20 - The object isa ExtUtils::Packlist
ok 21 - new() should set Perl version from %Config
$VAR1 = \bless( {
                   'Perl' => {
                               'version' => '5_8_1',
                               'packlist' => bless( {}, 'ExtUtils::Packlist' )
                             },
                   '::PERL581TOBE_SRC::T::auto::FakeMod::.packlist' => {
                                                                         'version' => 
'',
                                                                         'packlist' => 
bless( {
                                                                                       
         'list' => undef
                                                                                       
       }, 'ExtUtils::Packlist' )
                                                                       },
                   'fakemod' => {
                                  'version' => '1.1.1',
                                  'packlist' => bless( {
                                                         'list' => undef
                                                       }, 'ExtUtils::Packlist' )
                                }
                 }, 'ExtUtils::Installed' );
not ok 22 - new() should find modules with .packlists
LIB/EXTUTILS/T/INSTALLED.T;4...FAILED at test 22
u=31.61  s=0  cu=0  cs=0  scripts=1  tests=46

Test 22 will attempt to look up FakeMod here, this will of course fail, since the 
entry it is looking for is called fakemod

Michael, I wonder if you could try this and show us the result?

Also, you indicate that installed.pm and installed.t from the makemaker.org snapshot 
ought to be different from the ones in the perl5.8.1-to-be kit. They are identical at 
this time, but what should they be?

    Best regards
    Jesper Naur

Attachment: Descrip.mms
Description: Binary data

Attachment: INSTALLED_T.PATCH
Description: Binary data

Reply via email to