develooper Front page | perl.perl5.porters | Postings from December 2000

[ID 20001214.008] ExtUtils::Installed doesn't like '\'

Thread Next
From:
Alan Burlison
Date:
December 14, 2000 06:09
Subject:
[ID 20001214.008] ExtUtils::Installed doesn't like '\'
Message ID:
3A38D47E.379FD9D7@uk.sun.com
Message-ID: <001701c06564$a2c41bb0$0a00a8c0@hippo2000>
Reply-To: "Kawai,Takanori" <GCD00051@nifty.ne.jp>
From: "Kawai,Takanori" <GCD00051@nifty.ne.jp>
To: <Alan.Burlison@uk.sun.com>
Subject: ExtUtils::Installed on Win32
Date: Thu, 14 Dec 2000 09:22:31 +0900
Organization: =?iso-2022-jp?B?GyRCRnxLXCVpJUMlSTN0PDAycTxSGyhC?=
MIME-Version: 1.0
Content-Type: text/plain;
        charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Content-Length: 1093

Dear Mr. Burlison

I'm a using Perl5.6 on WinNT and Linux.
ExtUtils::Installed works fine on Linux, does not work on WinNT.

I found that error occurs on these lines:
<quote>
   $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!s;
   $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!s;
</quote>

I think that backslash(es) contained in $Config{archlib} and 
$Config{sitesearch} occurs error.So I change these lines like 
below and it works fine:
<quote>
#   $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!s;
#   $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!s;
#---Modify---------
   my $sCfg = $Config{archlib};
   $sCfg =~ s/\\/\\\\/g;
   $module =~ s!$sCfg/auto/(.*)/.packlist!$1!s;
   my $sCfg = $Config{sitearch};
   $sCfg =~ s/\\/\\\\/g;
   $module =~ s!$sCfg/auto/(.*)/.packlist!$1!s;
#---Modify---------
</quote>

I hope this may be your help.

Sinceryly.
==============================================
Kawai, Takanori(Hippo2000)
   Mail: GCD00051@nifty.ne.jp kwitknr@cpan.org
   http://member.nifty.ne.jp/hippo2000
==============================================


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About