Encode is actually version 2.37 from CPAN.
[perl.git] / win32 / list_static_libs.pl
1 #!perl -w
2 use strict;
3
4 # prints libraries for static linking and exits
5
6 use Config;
7
8 my @statics = split /\s+/, $Config{static_ext};
9
10 my %extralibs;
11 for (@statics) {
12     my $file = "..\\lib\\auto\\$_\\extralibs.ld";
13     open my $fh, '<', $file or die "can't open $file for reading: $!";
14     $extralibs{$_}++ for grep {/\S/} split /\s+/, join '', <$fh>;
15 }
16 print map {s|/|\\|g;m|([^\\]+)$|;"..\\lib\\auto\\$_\\$1$Config{_a} "} @statics;
17 print map {"$_ "} sort keys %extralibs;