diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-13 01:54:43 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-04 15:34:54 +0000 |
| commit | c72f2af0de9e34a7fac1a22285e602882b257035 (patch) | |
| tree | 0339815ab7ec05cf50499f71322fc659fc79bece /lib | |
| parent | cc46d5f2e4ebe9a55062264f659bd3099f00a045 (diff) | |
| download | perl-c72f2af0de9e34a7fac1a22285e602882b257035.tar.gz | |
[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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/Embed.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t index 5460a254bd..be12b8f44b 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) { |