diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 20:25:51 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 20:25:51 +0000 |
commit | f482256210ba4a012d90438eeb10755aefb10983 (patch) | |
tree | 25aa8099b0aa0063fa09a57975e7b4502dd922b4 /ext | |
parent | d8936fac7ff60d68386a4192b6416377d019892e (diff) | |
parent | de736a2909cd9bd6fedf27c4a9020aec89d5b686 (diff) | |
download | perl-f482256210ba4a012d90438eeb10755aefb10983.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4183
Diffstat (limited to 'ext')
-rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index 3e30698f87..3ce720b1cb 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; }; |