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: AS11403 66.111.4.0/24 X-Spam-Status: No, score=-4.0 required=3.0 tests=AWL,BAYES_00,DKIM_SIGNED, DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,RCVD_IN_DNSWL_LOW,SPF_HELO_PASS, SPF_PASS shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from out4-smtp.messagingengine.com (out4-smtp.messagingengine.com [66.111.4.28]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by dcvr.yhbt.net (Postfix) with ESMTPS id 468051F463 for ; Tue, 24 Sep 2019 20:43:52 +0000 (UTC) Received: from compute7.internal (compute7.nyi.internal [10.202.2.47]) by mailout.nyi.internal (Postfix) with ESMTP id 79F2521C82; Tue, 24 Sep 2019 16:43:51 -0400 (EDT) Received: from mailfrontend2 ([10.202.2.163]) by compute7.internal (MEProxy); Tue, 24 Sep 2019 16:43:51 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=alyssa.is; h= from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; s=fm1; bh=qPV2gWlIe3c5cC7aGK6RmnrLbo yrcXF+bbsLwxcRbFg=; b=RLrU2fQCWHPhXKiB49iQAxdvXSW8qCzfc1eCj24qHr UKeNBdm8eWBTy4HFsK6k+Ua28v6T0VhYcKB0F8cHhnLVgmB70KnNuaKFcah5pzQw p7ZprfMor+L5OAb1zDDTSPoTE/kvkE+ZroOZa1b8a+0lL8U+B5ABlYK0PRpO/y+F GOiyc5qXLxyb6yR0y8SOhcbQ0qEZSLO8zn7U4sWYr92ye5ClRKuZic8ko2FA504L jQ4XyiuvL3+XRFrl1z5IehYODqdkDz0mGCOP45u4oVnLsZQuQXXKAGTh+pT1aSoW ujxzajRn0w0tgcOc0pI3h2AvChmZQhShnpJZsFwblqgg== DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:content-transfer-encoding:date:from :message-id:mime-version:subject:to:x-me-proxy:x-me-proxy :x-me-sender:x-me-sender:x-sasl-enc; s=fm3; bh=qPV2gWlIe3c5cC7aG K6RmnrLboyrcXF+bbsLwxcRbFg=; b=B8purs4vRs6Obi7DKeNpCXvOpqKD9zDOA v+NEBDixkySDSuyKzSoLV57Im4XBPVIhOk8gyuiZ1+T4nhXW3ON0H7au/6+8/8Qe yW9nZf7ViZIJ2RzrMfp/uV5QUtnKla2ttD+3fQnxotTHo+4I0JsvvdgI/U178sxv uizQ/7Wg06pvoen7NtKD04Va2XAOWHfStG3mOnfABX48qUO8L33ZNcXyuGXHw99I E7cdcbosongB24nzlnqZYsSLvfg8vXY/wKZ37iTfoUgPOkw8DLQh63KyXdjnZWRG /+2i4JaTn+FDDb0d4fWeEMknrg1NTzXK4drlKNDIDYoKG2xJfo9Dg== X-ME-Sender: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedufedrfedtgdduhedvucetufdoteggodetrfdotf fvucfrrhhofhhilhgvmecuhfgrshhtofgrihhlpdfqfgfvpdfurfetoffkrfgpnffqhgen uceurghilhhouhhtmecufedttdenucenucfjughrpefhvffufffkofgggfestdekredtre dttdenucfhrhhomheptehlhihsshgrucftohhsshcuoehhihesrghlhihsshgrrdhisheq necuffhomhgrihhnpeigrghpihgrnhdrohhrghdpghhithhhuhgsrdgtohhmpdhgnhhurd horhhgnecukfhppeekuddrudekjedrvddvgedrudeftdenucfrrghrrghmpehmrghilhhf rhhomhephhhisegrlhihshhsrgdrihhsnecuvehluhhsthgvrhfuihiivgeptd X-ME-Proxy: Received: from localhost (130.224.187.81.in-addr.arpa [81.187.224.130]) by mail.messagingengine.com (Postfix) with ESMTPA id 35DA0D6005B; Tue, 24 Sep 2019 16:43:50 -0400 (EDT) From: Alyssa Ross To: meta@public-inbox.org Cc: Alyssa Ross Subject: [PATCH] #!/usr/bin/perl -> #!/usr/bin/env perl Date: Tue, 24 Sep 2019 20:43:12 +0000 Message-Id: <20190924204312.7875-1-hi@alyssa.is> X-Mailer: git-send-email 2.22.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: It's much more reasonable to assume that the Perl a user wants to use is the one they have in their path, rather than whatever one has been installed system-wide by their distribution (if any!). --- Documentation/extman.perl | 3 ++- Documentation/standards.perl | 3 ++- Makefile.PL | 3 ++- certs/create-certs.perl | 2 +- ci/deps.perl | 3 ++- examples/cgit.psgi | 2 +- examples/highlight.psgi | 2 +- examples/newswww.psgi | 2 +- examples/public-inbox.psgi | 2 +- examples/unsubscribe.milter | 2 +- examples/unsubscribe.psgi | 3 ++- script/public-inbox-compact | 2 +- script/public-inbox-convert | 2 +- script/public-inbox-edit | 2 +- script/public-inbox-httpd | 2 +- script/public-inbox-index | 2 +- script/public-inbox-init | 2 +- script/public-inbox-learn | 2 +- script/public-inbox-mda | 2 +- script/public-inbox-nntpd | 2 +- script/public-inbox-purge | 2 +- script/public-inbox-watch | 2 +- script/public-inbox-xcpdb | 3 ++- script/public-inbox.cgi | 2 +- scripts/dupe-finder | 2 +- scripts/import_maildir | 2 +- scripts/import_slrnspool | 2 +- scripts/import_vger_from_mbox | 2 +- scripts/slrnspool2maildir | 2 +- scripts/ssoma-replay | 3 ++- scripts/xhdr-num2mid | 2 +- t/check-www-inbox.perl | 2 +- t/git-http-backend.psgi | 2 +- t/hl_mod.t | 2 +- 34 files changed, 41 insertions(+), 34 deletions(-) diff --git a/Documentation/extman.perl b/Documentation/extman.perl index a72caca..cba689f 100755 --- a/Documentation/extman.perl +++ b/Documentation/extman.perl @@ -1,8 +1,9 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # prints a manpage to stdout use strict; +use warnings; my $xapmsg = 'See https://xapian.org/ for more information on Xapian'; my $usage = "$0 /path/to/manpage.SECTION.txt"; my $manpage = shift or die $usage; diff --git a/Documentation/standards.perl b/Documentation/standards.perl index f75c412..92edbc9 100755 --- a/Documentation/standards.perl +++ b/Documentation/standards.perl @@ -1,5 +1,6 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl use strict; +use warnings; # Copyright 2019 all contributors # License: AGPL-3.0+ diff --git a/Makefile.PL b/Makefile.PL index 8daeb4f..eb6f23c 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,7 +1,8 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2013-2019 all contributors # License: AGPL-3.0+ use strict; +use warnings; use ExtUtils::MakeMaker; open my $m, '<', 'MANIFEST' or die "open(MANIFEST): $!\n"; chomp(my @manifest = (<$m>)); diff --git a/certs/create-certs.perl b/certs/create-certs.perl index b287cec..607cac5 100755 --- a/certs/create-certs.perl +++ b/certs/create-certs.perl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # License: GPL-1.0+ or Artistic-1.0-Perl # from IO::Socket::SSL 2.063 / https://github.com/noxxi/p5-io-socket-ssl use strict; diff --git a/ci/deps.perl b/ci/deps.perl index 62870c1..d797a31 100755 --- a/ci/deps.perl +++ b/ci/deps.perl @@ -1,10 +1,11 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # Helper script for installing/uninstalling packages for CI use # Intended for use on non-production chroots or VMs since it # changes installed packages use strict; +use warnings; my $usage = "$0 PKG_FMT PROFILE [PROFILE_MOD]"; my $pkg_fmt = shift; @ARGV or die $usage, "\n"; diff --git a/examples/cgit.psgi b/examples/cgit.psgi index ca93f92..8c8a904 100644 --- a/examples/cgit.psgi +++ b/examples/cgit.psgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: GPL-3.0+ # diff --git a/examples/highlight.psgi b/examples/highlight.psgi index 244b128..b07181f 100644 --- a/examples/highlight.psgi +++ b/examples/highlight.psgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # diff --git a/examples/newswww.psgi b/examples/newswww.psgi index 0f66782..64c1ad6 100644 --- a/examples/newswww.psgi +++ b/examples/newswww.psgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: GPL-3.0+ # diff --git a/examples/public-inbox.psgi b/examples/public-inbox.psgi index 53a5970..92f525e 100644 --- a/examples/public-inbox.psgi +++ b/examples/public-inbox.psgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2014-2019 all contributors # License: GPL-3.0+ # Note: this is part of our test suite, update t/plack.t if this changes diff --git a/examples/unsubscribe.milter b/examples/unsubscribe.milter index d6db766..a0f87e0 100644 --- a/examples/unsubscribe.milter +++ b/examples/unsubscribe.milter @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/examples/unsubscribe.psgi b/examples/unsubscribe.psgi index 7020af2..a8968ce 100644 --- a/examples/unsubscribe.psgi +++ b/examples/unsubscribe.psgi @@ -1,10 +1,11 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: GPL-3.0+ # This should not require any other PublicInbox code, but may use # PublicInbox::Config if ~/.public-inbox/config exists or # PI_CONFIG is pointed to an appropriate location use strict; +use warnings; use Plack::Builder; use PublicInbox::Unsubscribe; my $app = PublicInbox::Unsubscribe->new( diff --git a/script/public-inbox-compact b/script/public-inbox-compact index e8bf31e..ded81aa 100755 --- a/script/public-inbox-compact +++ b/script/public-inbox-compact @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2018-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/script/public-inbox-convert b/script/public-inbox-convert index 9d2d251..09e0be0 100755 --- a/script/public-inbox-convert +++ b/script/public-inbox-convert @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2018-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/script/public-inbox-edit b/script/public-inbox-edit index 6884fd0..e9c206e 100755 --- a/script/public-inbox-edit +++ b/script/public-inbox-edit @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-httpd b/script/public-inbox-httpd index b2464f4..da786de 100755 --- a/script/public-inbox-httpd +++ b/script/public-inbox-httpd @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-index b/script/public-inbox-index index 439da15..4da9dca 100755 --- a/script/public-inbox-index +++ b/script/public-inbox-index @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2015-2019 all contributors # License: AGPL-3.0+ # Basic tool to create a Xapian search index for a git repository diff --git a/script/public-inbox-init b/script/public-inbox-init index 98aea4b..5ec74e9 100755 --- a/script/public-inbox-init +++ b/script/public-inbox-init @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2014-2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-learn b/script/public-inbox-learn index c4c4d4b..6362a83 100755 --- a/script/public-inbox-learn +++ b/script/public-inbox-learn @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2014-2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-mda b/script/public-inbox-mda index 4e6e04e..81f7d0c 100755 --- a/script/public-inbox-mda +++ b/script/public-inbox-mda @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2013-2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-nntpd b/script/public-inbox-nntpd index 3c4be19..2476780 100755 --- a/script/public-inbox-nntpd +++ b/script/public-inbox-nntpd @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2015-2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-purge b/script/public-inbox-purge index 0705d17..e5cd602 100755 --- a/script/public-inbox-purge +++ b/script/public-inbox-purge @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # diff --git a/script/public-inbox-watch b/script/public-inbox-watch index 5cbf761..fc220a1 100755 --- a/script/public-inbox-watch +++ b/script/public-inbox-watch @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/script/public-inbox-xcpdb b/script/public-inbox-xcpdb index b41c683..a043b7c 100755 --- a/script/public-inbox-xcpdb +++ b/script/public-inbox-xcpdb @@ -1,7 +1,8 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ # xcpdb: Xapian copy database, a wrapper around Xapian's copydatabase(1) +use warnings; use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); use PublicInbox::InboxWritable; use PublicInbox::Xapcmd; diff --git a/script/public-inbox.cgi b/script/public-inbox.cgi index c0e8e6c..0bf9a1a 100755 --- a/script/public-inbox.cgi +++ b/script/public-inbox.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2014-2019 all contributors # License: AGPL-3.0+ or later # diff --git a/scripts/dupe-finder b/scripts/dupe-finder index 1e98093..afb3610 100644 --- a/scripts/dupe-finder +++ b/scripts/dupe-finder @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2018-2019 all contributors # License: AGPL-3.0+ # diff --git a/scripts/import_maildir b/scripts/import_maildir index fbf3f64..bd6b1de 100755 --- a/scripts/import_maildir +++ b/scripts/import_maildir @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2014, Eric Wong and all contributors # License: AGPL-3.0+ # diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index 1dccb8d..7e85d26 100755 --- a/scripts/import_slrnspool +++ b/scripts/import_slrnspool @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2015-2019 all contributors # License: AGPL-3.0+ # diff --git a/scripts/import_vger_from_mbox b/scripts/import_vger_from_mbox index b2dd5b3..413936a 100644 --- a/scripts/import_vger_from_mbox +++ b/scripts/import_vger_from_mbox @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir index b321db1..f5599c1 100755 --- a/scripts/slrnspool2maildir +++ b/scripts/slrnspool2maildir @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2013-2019 all contributors # License: AGPL-3.0+ # diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay index f20e027..c59215c 100755 --- a/scripts/ssoma-replay +++ b/scripts/ssoma-replay @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2015-2019 all contributors # License: AGPL-3.0+ # @@ -26,6 +26,7 @@ ssoma add $NAME $URL "command:/path/to/ssoma-replay -L /path/to/spool/$NAME" command = /path/to/ssoma-replay -L /path/to/spool/meta =cut use strict; +use warnings; use Email::Simple; use URI::Escape qw/uri_escape_utf8/; use File::Temp qw/tempfile/; diff --git a/scripts/xhdr-num2mid b/scripts/xhdr-num2mid index 717fa46..79a94a4 100755 --- a/scripts/xhdr-num2mid +++ b/scripts/xhdr-num2mid @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ # Useful for mapping article IDs from existing NNTP servers to MIDs diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index db292c5..77569d9 100644 --- a/t/check-www-inbox.perl +++ b/t/check-www-inbox.perl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ # Parallel WWW checker diff --git a/t/git-http-backend.psgi b/t/git-http-backend.psgi index ed70d50..dc4967d 100644 --- a/t/git-http-backend.psgi +++ b/t/git-http-backend.psgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2016-2019 all contributors # License: AGPL-3.0+ use strict; diff --git a/t/hl_mod.t b/t/hl_mod.t index fc7b712..827b232 100644 --- a/t/hl_mod.t +++ b/t/hl_mod.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl # Copyright (C) 2019 all contributors # License: AGPL-3.0+ use strict; -- 2.22.1