diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-17 20:16:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-17 20:16:28 +0000 |
| commit | de736a2909cd9bd6fedf27c4a9020aec89d5b686 (patch) | |
| tree | a7ece4170d811b49a9a13e45b07e08bbb936a198 /ext | |
| parent | ac5800303222d9885aecd12f12f06762bf97c2fb (diff) | |
| parent | 424a8fe95d507998fe8750793da1b35bd6d7074b (diff) | |
| download | perl-de736a2909cd9bd6fedf27c4a9020aec89d5b686.tar.gz | |
integrate vmsperl contents into mainline (where VMS files conflicted,
vmsperl contents have prevailed)
p4raw-id: //depot/perl@4182
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; }; |