fixed sharedarea_wait perl api