fix perl5i.c #269

fix dash_m init,
simplify dash_e logic (only -e, no -M)