[perl5.git] / win32 / list_static_libs.pl

#!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;
Commit	Line	Data
c6d234b8 NC	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;