delibtoolize.pl revision 520
235N/A# ident "@(#)delibtoolize.pl 1.12 08/08/28 SMI"
493N/A# Usage: delibtoolize.pl [-P] <path>
235N/Amy $single_file;
235N/Amy %so_versions = ();
493N/A if ($single_file) {
235N/Asub modify_file {
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*=/) {
if ($single_file) {
fi; \
$l .= $installrule;
if ($curtarget =~ m/^.*\.a$/) {
close($NEW) or die;