match Str.split (Str.regexp "=") s with
[name;vl] -> defined_virtual_env := (name,vl) :: !defined_virtual_env
| _ -> defined_virtual_rules := s :: !defined_virtual_rules
match Str.split (Str.regexp "=") s with
[name;vl] -> defined_virtual_env := (name,vl) :: !defined_virtual_env
| _ -> defined_virtual_rules := s :: !defined_virtual_rules