[Reproducible-commits] [libextutils-depends-perl] 28/187: don't output a PM pair from get_makefile_vars if there is no data in the pm key

[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 65b773812caf2e9c1fefbb36846105784b7f5567
Author: Scott Arrington <sarringt at src.gnome.org>
Date:   Fri Mar 12 21:02:25 2004 +0000

    don't output a PM pair from get_makefile_vars if there is no data in the pm key
    
    svn path=/trunk/; revision=42
---
 Changes                 |  4 ++++
 lib/ExtUtils/Depends.pm | 10 ++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 23b358f..6c5e24d 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension ExtUtils::Depends.
 
+0.203 Fri Mar 12 16:09:35 EST 2004
+	- don't output a PM pair from get_makefile_vars unless we actually
+	  have data in the pm key.
+
 0.202 Fri Mar  5 00:26:18 EST 2004
 	- add long-overdue version-checking import implementation.
 	- fixed a bad initial value bug that caused crashes if your setup
diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index 631b0e3..b28f2d2 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -10,7 +10,7 @@ use Carp;
 use File::Spec;
 use Data::Dumper;
 
-our $VERSION = '0.202';
+our $VERSION = '0.203';
 
 sub import {
 	my $class = shift;
@@ -64,8 +64,6 @@ sub set_inc {
 }
 
 sub set_libs {
-	#my $self = shift;
-	#push @{ $self->{libs} }, @_;
 	my ($self, $newlibs) = @_;
 	$self->{libs} = $newlibs;
 }
@@ -285,8 +283,12 @@ sub get_makefile_vars {
 		INC => join (' ', uniquify @incbits),
 		LIBS => join (' ', uniquify @libsbits),
 		TYPEMAPS => [@typemaps],
-		PM => $self->{pm},
 	);
+	# 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.
+	$vars{PM} = $self->{pm}
+		if %{ $self->{pm} };
 	$vars{clean} = { FILES => join (" ", @clean), }
 		if @clean;
 	$vars{OBJECT} = join (" ", @OBJECT)

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