Apply gen_parrot.pl fix as also found in Rakudo's gen_parrot.pl to avoid a Win32 issue.

jnthn · jnthn · commit 1401ec647eee · 2011-01-23T22:30:00.000+01:00
diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
@@ -35,7 +35,8 @@ =head2 DESCRIPTION
 
 {
     no warnings;
-    if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config git_describe") {
+    my $parrot_bin_folder = "parrot_install${slash}bin";
+    if (-e $parrot_bin_folder && open my $REV, '-|', "$parrot_bin_folder${slash}parrot_config git_describe") {
         my $revision = <$REV>;
         close $REV;
         $revision =~ s/\s.*//s;

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,8 @@ =head2 DESCRIPTION`
`35`	`35`
`36`	`36`	`{`
`37`	`37`	`no warnings;`
`38`		`- if (open my $REV, '-\|', "parrot_install${slash}bin${slash}parrot_config git_describe") {`
	`38`	`+ my $parrot_bin_folder = "parrot_install${slash}bin";`
	`39`	`+ if (-e $parrot_bin_folder && open my $REV, '-\|', "$parrot_bin_folder${slash}parrot_config git_describe") {`
`39`	`40`	`my $revision = <$REV>;`
`40`	`41`	`close $REV;`
`41`	`42`	`$revision =~ s/\s.*//s;`