[perl #75752] [PATCH] make realclean before svn update (parrot)

[via RT]

# New Ticket Created by  Alex Varyanick 
# Please include the string:  [perl #75752]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75752 >


perl Configure.pl --gen-parrot failed time to time. Need to do
realclean before update.

diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
index 63173a3..572f474 100644
--- a/build/gen_parrot.pl
+++ b/build/gen_parrot.pl
@@ -43,12 +43,6 @@ close $REQ;
     }
 }

-print "Checking out Parrot r$reqsvn via svn...\n";
-system_or_die(qw(svn checkout -r),  $reqsvn ,
qw(https://svn.parrot.org/parrot/trunk parrot));
-
-chdir('parrot') || die "Can't chdir to 'parrot': $!";
-
-
 ##  If we have a Makefile from a previous build, do a 'make realclean'
 if (-f 'Makefile') {
     my %config = read_parrot_config();
@@ -59,6 +53,12 @@ if (-f 'Makefile') {
     }
 }

+print "Checking out Parrot r$reqsvn via svn...\n";
+system_or_die(qw(svn checkout -r),  $reqsvn ,
qw(https://svn.parrot.org/parrot/trunk parrot));
+
+chdir('parrot') || die "Can't chdir to 'parrot': $!";
+
+
 print "\nConfiguring Parrot ...\n";
 my @config_command = ($^X, 'Configure.pl', @ARGV);
 print "@config_command\n";


-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q...@cono.org.ua