in reply to no warnings 'recursion' does nothing?
Did you added no warnings into threads/shared.pm? Because if you add it into your main script it will have no effect onto threads::shared behaviour.