From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 2F3CA1F46D for ; Wed, 18 Dec 2019 03:36:47 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 3/6] Makefile.PL: sort target and var lists Date: Wed, 18 Dec 2019 03:36:42 +0000 Message-Id: <20191218033645.5037-4-e@80x24.org> In-Reply-To: <20191218033645.5037-1-e@80x24.org> References: <20191218033645.5037-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Sorting makes it easier to review the generated result. --- Makefile.PL | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index 3020f25a..33688095 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -83,13 +83,13 @@ $v->{rsync_xdocs} = [ @{$v->{gz_xdocs}}, @{$v->{xdocs_html}}, @{$v->{xdocs}} ]; my $TGTS = join("\n", map {; my $tgt_prereq = $_; my $cmds = $t->{$_}; - "$tgt_prereq\n".join('', map { "\t$_\n" } @$cmds); -} keys %$t); + "$tgt_prereq\n".join('', map { "\t$_\n" } sort(@$cmds)); +} sort keys %$t); my $VARS = join("\n", map {; my $varname = $_; - join('', map { "$varname += $_\n" } @{$v->{$varname}}); -} grep(!/^-/, keys %$v)); + join('', map { "$varname += $_\n" } sort @{$v->{$varname}}); +} grep(!/^-/, sort keys %$v)); # Don't waste user's disk space by installing some pods from # imported code or internal use only