delibtoolize.pl revision 493
1043N/A# ident "@(#)delibtoolize.pl 1.11 08/08/08 SMI"
837N/A# Usage: delibtoolize.pl [-P] <path>
my %opts;
my %so_versions = ();
my @Makefiles;
sub scan_file {
my $old_file = $_;
while (my $n = <$OLD>) {
} elsif ($v =~ m/^(\d+)[:\d]*$/ms) {
close($OLD) or die;
sub modify_file {
my ($filename) = @_;
my $compiler;
my @inlines = ();
while (my $n = <$OLD>) {
if ($l =~ m/^\s*CC\s*=\s*(\S*)/) {
push @inlines, $l;
close($OLD) or die;
foreach $l (@inlines) {
$l =~ s{\$\(LIBTOOL\)
(?:[\\\s]+ \$\(LT_QUIET\))?
$l =~ s{\$\(LIBTOOL\)
(?:[\\\s]+ \$\(LT_QUIET\))?
[\\\s]+ --mode=link
}{}xs;
if ($l =~ m/_la_LDFLAGS\s*=/) {
fi; \
$l .= $installrule;
if ($curtarget =~ m/^.*\.a$/) {
close($NEW) or die;