[Reproducible-commits] [libextutils-depends-perl] 33/187: fix a typo in the synopsis

[Maria Valentina Marin Rodrigues]

This is an automated email from the git hooks/post-receive script.

akira-guest pushed a commit to branch pu/reproducible_builds
in repository libextutils-depends-perl.

commit 1658ccf032fbce22d5ac8817ee0e3650cda4d9e7
Author: Scott Arrington <sarringt at src.gnome.org>
Date:   Tue Apr 5 02:51:56 2005 +0000

    fix a typo in the synopsis
    
    svn path=/trunk/; revision=49
---
 Changes                 |  3 +++
 lib/ExtUtils/Depends.pm | 39 ++++++++++++++++++++++++++++++++++++++-
 2 files changed, 41 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index faa972f..58cd5e3 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension ExtUtils::Depends.
 
+0.--- Mon Apr  4 22:49:35 EDT 2005
+	- Correct a typo in the synopsis.
+
 0.205 Sun Jan 23 13:20:14 EST 2005
 	- Disable the RPM-related postamble on Win32.  The 'date' command
 	  on windows is interactive, and caused Makefile.PL to hang.
diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index b26b6e7..58e3703 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -282,8 +282,10 @@ sub get_makefile_vars {
 	my %vars = (
 		INC => join (' ', uniquify @incbits),
 		LIBS => join (' ', uniquify @libsbits),
+		#LIBS => join (' ', uniquify $self->find_extra_libs, @libsbits),
 		TYPEMAPS => [@typemaps],
 	);
+	push @OBJECT, $self->find_extra_libs;
 	# we don't want to provide these if there is no data in them;
 	# that way, the caller can still get default behavior out of
 	# MakeMaker when INC, LIBS and TYPEMAPS are all that are required.
@@ -299,6 +301,41 @@ sub get_makefile_vars {
 	%vars;
 }
 
+#  %Config     linux      win32      darwin
+#   lib_ext     .a          .a         .a
+#     so        so         dll       dylib
+#    dlext      so         dll       bundle
+sub find_extra_libs {
+	my $self = shift;
+	use File::Find;
+	use Config;
+	my @ret = ();
+	my $ext = $Config{so};
+	warn "on $^O, looking for extra '$ext\'s with which to link\n";
+	#my $ext = $Config{dlext};
+	# XXX what about linkage order?  these should be in the most-dependent
+	# first order, for old-style linkers...  but when we get the dep names
+	# from the hash, we have no idea about order.
+	foreach my $name (keys %{ $self->{deps} }) {
+		my $dep = $self->{deps}{$name};
+		(my $dllname = $name) =~ s/^.*:://;
+		my $match = qr/$dllname\.$ext$/;
+		my $l;
+		find (sub {
+			$l = $File::Find::name
+				if (not $l) && /$match/;
+		}, map { -d $_ ? ($_) : () } @INC); # only extant dirs
+		if ($l && -f $l) {
+			warn "found $l\n";
+			push @ret, $l;
+			next;
+		}
+		warn "can't find $dllname\.$ext for $name\n";
+	}
+	#print Dumper(\@ret);
+	return @ret;
+}
+
 1;
 
 __END__
@@ -313,7 +350,7 @@ ExtUtils::Depends - Easily build XS extensions that depend on XS extensions
 	$package = new ExtUtils::Depends ('pkg::name', 'base::package')
 	# set the flags and libraries to compile and link the module
 	$package->set_inc("-I/opt/blahblah");
-	$package->set_lib("-lmylib");
+	$package->set_libs("-lmylib");
 	# add a .c and an .xs file to compile
 	$package->add_c('code.c');
 	$package->add_xs('module-code.xs');

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git