Cloning after Appling Patch 4676589 ATG_PF.RUP 4

If you applied the ATG_PF.RUP 4 patch you will face the following error when running the perl command
perl adpreclone.pl dbTier or appsTier

ERROR
Global symbol "$resultclone" requires explicit package name at adpreclone.pl
line 525.
syntax error at adpreclone.pl line 527, near "$resultclone !"
syntax error at adpreclone.pl line 530, near "}"
Execution of adpreclone.pl aborted due to compilation errors

There are 2 solutions to this error:
-applying one of the patches (5132155,5225940,5235401).
Or
- You can make the following changes in the file adpreclone.pl 115.49, replace the following and retest the issue.
Replace:

$resultclone = system "$syscmd";
# added for bug #4448838
if($resultclone ! = 0 )

With:

my $resultclone = system "$syscmd";
# added for bug #4448838
if($resultclone != 0 )


enjoy cloning
fadi