Sophie

Sophie

distrib > Mandriva > current > i586 > media > contrib-release-src > by-pkgid > 190e6c9662d769a9d9cd3a3a76985ca9 > files > 1

perl-Alien-wxWidgets-0.510.0-1mdv2010.1.src.rpm

--- inc/My/Build/Any_wx_config.pm.orig	2009-07-24 17:28:11.000000000 +0200
+++ inc/My/Build/Any_wx_config.pm	2009-07-24 17:29:42.000000000 +0200
@@ -138,7 +138,11 @@
         if( @paths ) {
             my $found = 0;
             foreach my $path ( @paths ) {
-                $found = 1 if -f File::Spec->catfile( $path, $v->{dll} );
+                my $path = File::Spec->catfile( $path, $v->{dll} );
+                next unless -f $path;
+                $found = 1;
+                $v->{dll} = readlink($path) if -l $path; # dereference symlinks
+                last;                                    # don't try any other path
             }
             unless( $found || $self->notes( 'build_wx' ) ) {
                 if( grep $_ eq $k, @My::Build::Any_wx_config::CRITICAL ) {