3f5bd394e1709e89ed2da88b9ffa6325edbe2640
[perl.git] / do / execfree
1 void
2 do_execfree()
3 {
4     if (Argv) {
5         Safefree(Argv);
6         Argv = Null(char **);
7     }
8     if (Cmd) {
9         Safefree(Cmd);
10         Cmd = Nullch;
11     }
12 }
13