Change 34371 by [EMAIL PROTECTED] on 2008/09/15 22:53:27
SEGV in readline with $/ set to a reference, discovered by theorbtwo.
The bug turns out to have been introduced in 2003, with change 18580.
Affected files ...
... //depot/perl/sv.c#1555 edit
Differences ...
==== //depot/perl/sv.c#1555 (text) ====
Index: perl/sv.c
--- perl/sv.c#1554~34220~ 2008-08-24 05:16:28.000000000 -0700
+++ perl/sv.c 2008-09-15 15:53:27.000000000 -0700
@@ -6704,7 +6704,7 @@
#endif
if (bytesread < 0)
bytesread = 0;
- SvCUR_set(sv, bytesread += append);
+ SvCUR_set(sv, bytesread + append);
buffer[bytesread] = '\0';
goto return_string_or_null;
}
End of Patch.
