Mercurial > repo
view perl-5.22.2/win32/list_static_libs.pl @ 8045:a16537d2fe07
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author | HackBot |
---|---|
date | Sat, 14 May 2016 14:54:38 +0000 |
parents | |
children |
line wrap: on
line source
#!perl -w use strict; # prints libraries for static linking and exits use Config; my @statics = split /\s+/, $Config{static_ext}; my %extralibs; for (@statics) { my $file = "..\\lib\\auto\\$_\\extralibs.ld"; open my $fh, '<', $file or die "can't open $file for reading: $!"; $extralibs{$_}++ for grep {/\S/} split /\s+/, join '', <$fh>; } print map {s|/|\\|g;m|([^\\]+)$|;"..\\lib\\auto\\$_\\$1$Config{_a} "} @statics; print map {"$_ "} sort keys %extralibs;