From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Dec 2002 00:54:43 +0000 (+0100)
Subject: [perl #15184] ExtUtils/t/Embed.t fails with -Duseshrplib -Dlibperl=...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c72f2af0de9e34a7fac1a22285e602882b257035;p=p5sagit%2Fp5-mst-13.2.git

[perl #15184] ExtUtils/t/Embed.t fails with -Duseshrplib -Dlibperl=...
Message-Id: <20021213005443.3077a229.rgarciasuarez@free.fr>
Same as change 18403 for maint-5.8 branch

p4raw-id: //depot/perl@18439
---

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index 5460a25..be12b8f 100644
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -102,7 +102,7 @@ if ($^O eq 'VMS') {
      # 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) {