From 0ce412f309b551d72f80e12f6fc8a64b429ef339 Mon Sep 17 00:00:00 2001 From: Peter Foley Date: Fri, 15 Jan 2016 23:35:28 -0500 Subject: modules-deps.pl cleanup MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Change-Id: Ic450869c18991b9ed715bb31052dfb911fe3c789 Reviewed-on: https://gerrit.libreoffice.org/21508 Tested-by: Jenkins Reviewed-by: Matúš Kukan --- bin/module-deps.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin/module-deps.pl') diff --git a/bin/module-deps.pl b/bin/module-deps.pl index 8134dffb42b0..c742b713429f 100755 --- a/bin/module-deps.pl +++ b/bin/module-deps.pl @@ -222,7 +222,7 @@ sub collapse_lib_to_module($) my %unknown_libs; for my $lib_name (sort keys %{$tree}) { my $result = $tree->{$lib_name}; - $unknown_libs{$lib_name} = 1 && next if (!grep {/$lib_name/} keys $l2m); + $unknown_libs{$lib_name} = 1 && next if (!grep {/$lib_name/} keys %$l2m); # new collapsed name. my $name = $l2m->{$lib_name}; @@ -295,7 +295,7 @@ sub prune_leaves($) sub annotate_mergelibs($) { my $tree = shift; - print STDERR "annotating mergelibs"; + print STDERR "annotating mergelibs\n"; for my $name (keys %{$tree}) { if (defined $merged_libs{$name}) { $tree->{$name}->{merged} = 1; -- cgit