@echo off
if "%1"=="" goto :errorn
setlocal
pushd %1
if errorlevel 1 goto :errord
cd
pause
rsync -avz --delete rsync://ftp.linux.activestate.com/perl-current/ .
echo y|cacls .\*.* /T /C /P Everyone:F >nul
attrib -r /s /d .
if "%2"=="" goto :popit
perl -pe "BEGIN{binmode STDOUT}; /^[+-]{3}/ && s!/!\\!g;" %2 | patch -l
regen.pl
:popit
popd

goto :end

:errord
echo Error, directory '%1' was invalid

:errorn
echo usage: %0 BLEADPERL_DIR

:end