Change 18439 by rgs@rgs-home on 2003/01/04 15:34:54
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]>
Same as change 18403 for maint-5.8 branch
Affected files ...
... //depot/perl/lib/ExtUtils/t/Embed.t#13 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/Embed.t#13 (text) ====
Index: perl/lib/ExtUtils/t/Embed.t
--- perl/lib/ExtUtils/t/Embed.t#12~16836~ Tue May 28 06:43:39 2002
+++ perl/lib/ExtUtils/t/Embed.t Sat Jan 4 07:34:54 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.
