This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suggestion from Slaven - reverse the part of 23348 that removed the
authorNicholas Clark <nick@ccl4.org>
Sat, 18 Oct 2008 21:20:19 +0000 (21:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 18 Oct 2008 21:20:19 +0000 (21:20 +0000)
conditional call to dl_expandspec() on platforms that default
$do_expand to false. autorequire, rightly or wrongly, is relying on
being able to set $do_expand to true.

p4raw-id: //depot/perl@34513

ext/DynaLoader/DynaLoader_pm.PL

index 91fa048..2b833e5 100644 (file)
@@ -336,9 +336,7 @@ sub bootstrap {
        
        # check for common cases to avoid autoload of dl_findfile
        my $try = <<$^O-eq-MacOS>> "$dir:$modfname.$dl_dlext" <<|$^O-eq-MacOS>> "$dir/$modfname.$dl_dlext"<</$^O-eq-MacOS>>;
-       last if $file = <<$^O-eq-VMS>>($do_expand) ? dl_expandspec($try) : ((-f $try) && $try);
-       <<|$^O-eq-VMS>>(-f $try) && $try;
-       <</$^O-eq-VMS>>
+       last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try);
        
        # no luck here, save dir for possible later dl_findfile search
        push @dirs, $dir;