@@ -50,7 +50,7 @@ sub parse_revision {
50
50
my $what = shift ;
51
51
my $sep = qr / [_.]/ ;
52
52
$rev =~ / (\d +)$sep (\d +)(?:$sep (\d +))?(?:-(\d +)-g[a-f0-9]*)?$ /
53
- or die " Unrecognized revision specifier '$rev ' $what \n " ;
53
+ or die " Unrecognized revision specifier '$rev ' from $what \n " ;
54
54
return ($1 , $2 , $3 || 0, $4 || 0);
55
55
}
56
56
@@ -226,7 +226,7 @@ sub gen_nqp {
226
226
$impls {$b }{bin } = $bin ;
227
227
my %c = read_config($bin );
228
228
my $nqp_have = $c {' nqp::version' } || ' ' ;
229
- my $nqp_ok = $nqp_have && cmp_rev($nqp_have , $nqp_want , " nqp " ) >= 0;
229
+ my $nqp_ok = $nqp_have && cmp_rev($nqp_have , $nqp_want , " NQP " ) >= 0;
230
230
if ($nqp_ok ) {
231
231
$impls {$b }{config } = \%c ;
232
232
}
@@ -289,7 +289,7 @@ sub gen_moar {
289
289
$moar_have = $moar_version_output =~ / version (\S +)/ ? $1 : undef ;
290
290
}
291
291
292
- my $moar_ok = $moar_have && cmp_rev($moar_have , $moar_want , " moar " ) >= 0;
292
+ my $moar_ok = $moar_have && cmp_rev($moar_have , $moar_want , " MoarVM " ) >= 0;
293
293
if ($moar_ok ) {
294
294
push @errors , " Found $moar_exe version $moar_have , which is new enough.\n " ;
295
295
return ($moar_exe , @errors );
0 commit comments