comparison: plugins/perl/perl-common.c
plugins/perl/perl-common.c
- changeset 8735
- 01248ea222d3
- parent 8593
- ad96ca5bde01
- child 11170
- d8941580d87f
equal
deleted
inserted
replaced
| 8734:afa380e9818c | 8735:01248ea222d3 |
|---|---|
| 208 for (i = 0; i < argc; i++) { | 208 for (i = 0; i < argc; i++) { |
| 209 if (args[i] && strcmp(args[i], SvPVX(sv_args[i]))) { | 209 if (args[i] && strcmp(args[i], SvPVX(sv_args[i]))) { |
| 210 /* | 210 /* |
| 211 * Shizzel. So the perl script changed one of the parameters, | 211 * Shizzel. So the perl script changed one of the parameters, |
| 212 * and we want this change to affect the original parameters. | 212 * and we want this change to affect the original parameters. |
| 213 * args[i] is just a tempory little list of pointers. We don't | 213 * args[i] is just a temporary little list of pointers. We don't |
| 214 * want to free args[i] here because the new parameter doesn't | 214 * want to free args[i] here because the new parameter doesn't |
| 215 * overwrite the data that args[i] points to. That is done by | 215 * overwrite the data that args[i] points to. That is done by |
| 216 * the function that called execute_perl. I'm not explaining this | 216 * the function that called execute_perl. I'm not explaining this |
| 217 * very well. See, it's aggregate... Oh, but if 2 perl scripts | 217 * very well. See, it's aggregate... Oh, but if 2 perl scripts |
| 218 * both modify the data, _that's_ a memleak. This is really kind | 218 * both modify the data, _that's_ a memleak. This is really kind |
