[Reproducible-commits] [libextutils-depends-perl] 153/187: Improve formatting/whitespace of module.
Maria Valentina Marin Rodrigues
akira-guest at moszumanska.debian.org
Wed Jan 21 21:16:59 UTC 2015
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 bbfb31b0af6f519d93692df9b6baa2c13b653af1
Author: Ed J <mohawk2 at users.noreply.github.com>
Date: Sun Aug 3 20:08:43 2014 +0100
Improve formatting/whitespace of module.
---
lib/ExtUtils/Depends.pm | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index 72da6ad..8eed45f 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -128,10 +128,13 @@ sub save_config {
typemaps => [ map { basename $_ } @{ $self->{typemaps} } ],
deps => [keys %{ $self->{deps} }],
}], ['self']);
- print $file "\n\n\@deps = \@{ \$self->{deps} };\n";
- print $file "\@typemaps = \@{ \$self->{typemaps} };\n";
- print $file "\$libs = \$self->{libs};\n";
- print $file "\$inc = \$self->{inc};\n";
+ print $file <<'EOF';
+
+ at deps = @{ $self->{deps} };
+ at typemaps = @{ $self->{typemaps} };
+$libs = $self->{libs};
+$inc = $self->{inc};
+EOF
# this is ridiculous, but old versions of ExtUtils::Depends take
# first $loadedmodule::CORE and then $INC{$file} --- the fallback
# includes the Filename.pm, which is not useful. so we must add
@@ -177,14 +180,13 @@ sub load {
eval {
require $relpath
} or die " *** Can't load dependency information for $dep:\n $@\n";
- #
#print Dumper(\%INC);
# effectively $instpath = dirname($INC{$relpath})
@pieces = File::Spec->splitdir ($INC{$relpath});
pop @pieces;
my $instpath = File::Spec->catdir (@pieces);
-
+
no strict;
croak "No dependency information found for $dep"
@@ -249,7 +251,7 @@ sub get_makefile_vars {
# collect and uniquify things from the dependencies.
# first, ensure they are completely loaded.
$self->load_deps;
-
+
##my @defbits = map { split } @{ $self->{defines} };
my @incbits = map { split } @{ $self->{inc} };
my @libsbits = split /\s+/, $self->{libs};
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git
More information about the Reproducible-commits
mailing list