This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #15184] ExtUtils/t/Embed.t fails with -Duseshrplib -Dlibperl=...
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Dec 2002 00:54:43 +0000 (01:54 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 4 Jan 2003 15:34:54 +0000 (15:34 +0000)
Message-Id: <20021213005443.3077a229.rgarciasuarez@free.fr>
Same as change 18403 for maint-5.8 branch

p4raw-id: //depot/perl@18439

lib/ExtUtils/t/Embed.t

index 5460a25..be12b8f 100644 (file)
@@ -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) {