From: James E Keenan <jkeenan@cpan.org>
Date: Fri, 13 Oct 2017 14:02:31 +0000 (+0200)
Subject: Use Getopt::Std::getopts() as it comes with all Perl 5 versions.
X-Git-Tag: 5.27.11~52
X-Git-Url: https://perl5.git.perl.org/metaconfig.git/commitdiff_plain/a1e7d93de91764f5726b813e16bf2c602d804897

Use Getopt::Std::getopts() as it comes with all Perl 5 versions.

Instead of Perl 4 getopts.pl.

For:  https://github.com/perl5-metaconfig/metaconfig/issues/14
---

diff --git a/bin/mlint b/bin/mlint
index 8411f12..bc4cce6 100755
--- a/bin/mlint
+++ b/bin/mlint
@@ -3,6 +3,7 @@
 BEGIN { $ENV{LC_ALL} = "C"; }
 
 use FindBin;
+use Getopt::Std;
 
 $p5_metaconfig_base = "$FindBin::Bin/../";
 chdir "$p5_metaconfig_base/perl" ||
@@ -44,8 +45,7 @@ $version = '3.5';
 $patchlevel = '0';
 $grep = '/usr/bin/grep';
 &profile;						# Read ~/.dist_profile
-require 'getopts.pl';
-&usage unless &Getopts("hklVL:oOs");
+&usage unless getopts("hklVL:oOs");
 
 if ($opt_V) {
 	print STDERR "metalint $version PL$patchlevel\n";