removed perl code
fixed if no group exists
fixe global destruction thing
merged