fixed a bug with my perl extentions