Change 34372 by [EMAIL PROTECTED] on 2008/09/16 09:55:12
Integrate:
[ 34371]
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/maint-5.10/perl/sv.c#26 integrate
Differences ...
==== //depot/maint-5.10/perl/sv.c#26 (text) ====
Index: perl/sv.c
--- perl/sv.c#25~34295~ 2008-09-06 02:32:00.000000000 -0700
+++ perl/sv.c 2008-09-16 02:55:12.000000000 -0700
@@ -6466,7 +6466,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.
