This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add probe for __builtin_{add,sub,mul}_overflow
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 17 Oct 2017 13:57:40 +0000 (15:57 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 17 Oct 2017 13:57:40 +0000 (15:57 +0200)
Merge remote-tracking branch 'origin/mauke/builtin-overflow'

bin/mconfig
bin/mlint

index d554b76..51dbf5f 100755 (executable)
@@ -4,6 +4,7 @@ use sort "stable";
 BEGIN { $ENV{LC_ALL} = "C"; }
 
 use FindBin;
+use Getopt::Std;
 
 $p5_metaconfig_base = "$FindBin::Bin/../";
 chdir "$p5_metaconfig_base/perl" or
@@ -56,8 +57,7 @@ $patchlevel = '0';
 $grep = '/usr/bin/grep';
 chop($date = `date`);
 &profile;                                              # Read ~/.dist_profile
-require 'getopts.pl';
-&usage unless &Getopts("dhkmoOstvwGMVL:");
+&usage unless getopts("dhkmoOstvwGMVL:");
 
 $MC = $opt_L if $opt_L;                        # May override public library path
 $MC = &tilda_expand($MC);              # ~name expansion
index 8411f12..bc4cce6 100755 (executable)
--- 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";