# New Ticket Created by Cosimo Streppone
# Please include the string: [perl #64816]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64816 >
I'm on Win32.
Got a fresh checkout of rakudo from git repo just now.
Running `perl Configure.PL --gen-parrot' fails for me
because build/PARROT_REVISION contains a DOS newline,
so the final svn checkout command for parrot fails.
svn checkout -r37980^M ...
This is my small fix to build/gen_parrot.pl:
-------8<-------------------------
diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
index a77223a..c4ccac8 100644
--- a/build/gen_parrot.pl
+++ b/build/gen_parrot.pl
@@ -27,7 +27,9 @@ my $slash = $^O eq 'MSWin32' ? '\\' : '/';
## determine what revision of Parrot we require
open my $REQ, "build/PARROT_REVISION"
|| die "cannot open build/PARROT_REVISION\n";
-my $required = <$REQ>; chomp $required;
+my $required = <$REQ>; # chomp $required;
+# Remove the DOS newline or svn checkout command chokes
+$required =~ s{[\s\r\n]}{}gm;
close $REQ;
-------8<-------------------------
--
Cosimo
