This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Porting/bench.pl: protect against data loss
[perl5.git] / Porting / bench.pl
index 3e93a71..c5fddde 100755 (executable)
@@ -482,9 +482,12 @@ sub select_a_perl {
 
 sub process_perls {
     my @results;
+    my %seen;
     for my $p (@_) {
         my ($perl, $label) = split /=/, $p, 2;
         $label //= $perl;
+        die "$label cannot be used on 2 different PUTs\n" if $seen{$label}++;
+
         my $r = qx($perl -e 'print qq(ok\n)' 2>&1);
         die "Error: unable to execute '$perl': $r" if $r ne "ok\n";
         push @results, [ $perl, $label ];