From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 23 Aug 1999 03:01:31 +0000 (+0000)
Subject: Allow for file versions in library when looking for .bs files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f45a6dd55fdf1a0e32ab7a240f55674fbadb3f7;p=p5sagit%2Fp5-mst-13.2.git

Allow for file versions in library when looking for .bs files

p4raw-id: //depot/vmsperl@4018
---

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 3e30698..3ce720b 100644
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -179,7 +179,7 @@ sub bootstrap {
     # The .bs file can be used to configure @dl_resolve_using etc to
     # match the needs of the individual module on this architecture.
     my $bs = $file;
-    $bs =~ s/(\.\w+)?$/\.bs/; # look for .bs 'beside' the library
+    $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
     if (-s $bs) { # only read file if it's not empty
         print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
         eval { do $bs; };