Change 18403 by jhi@lyta on 2003/01/03 02:49:17
Subject: [PATCH] [perl #15184] ExtUtils/t/Embed.t fails with -Duseshrplib
-Dlibperl=...
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Fri, 13 Dec 2002 00:54:43 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/lib/ExtUtils/t/Embed.t#2 edit
Differences ...
==== //depot/maint-5.8/perl/lib/ExtUtils/t/Embed.t#2 (text) ====
Index: perl/lib/ExtUtils/t/Embed.t
--- perl/lib/ExtUtils/t/Embed.t#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/lib/ExtUtils/t/Embed.t Thu Jan 2 18:49:17 2003
@@ -102,7 +102,7 @@
# Everyone needs libperl copied if it's not found by '-lperl'.
$testlib = $Config{'libperl'};
my $srclib = $testlib;
- $testlib =~ s/^[^.]+/libperl/;
+ $testlib =~ s/.+(?=\.[^.]*)/libperl/;
$testlib = File::Spec::->catfile($lib, $testlib);
$srclib = File::Spec::->catfile($lib, $srclib);
if (-f $srclib) {
End of Patch.
