diff options
| author | Karl Williamson <khw@cpan.org> | 2020-10-16 21:08:13 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-10-31 11:04:19 -0600 |
| commit | 430f723e6dceffbacbd1d7160d35ee8a2b698448 (patch) | |
| tree | ef8d5a4308f1822d1b4dc2813f6b73d792a3b6c1 /embed.fnc | |
| parent | cc448ceab170493a35039184f4f85054a8ddf971 (diff) | |
| download | perl-430f723e6dceffbacbd1d7160d35ee8a2b698448.tar.gz | |
Fix up delimcpy_no_escape()
I modified this function in ab01742544b98b5b5e13d8e1a6e9df474b9e3005,
and did not fully understand the edge cases. This commit now handles
those properly, the same as plain delimcpy() does.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -756,10 +756,10 @@ pR |SV * |defelem_target |NN SV *sv|NULLOK MAGIC *mg ATpd |char* |delimcpy|NN char* to|NN const char* to_end \ |NN const char* from|NN const char* from_end \ |const int delim|NN I32* retlen -Tpd |char* |delimcpy_no_escape|NN char* to|NN const char* toend \ +ETpd |char* |delimcpy_no_escape|NN char* to|NN const char* to_end \ |NN const char* from \ - |NN const char* fromend|int delim \ - |NN I32* retlen + |NN const char* from_end \ + |const int delim|NN I32* retlen : Used in op.c, perl.c px |void |delete_eval_scope Aprd |OP* |die_sv |NN SV *baseex |