Change 34375 by [EMAIL PROTECTED] on 2008/09/16 12:41:16
Integrate:
[ 34372]
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.8/perl/sv.c#390 integrate
Differences ...
==== //depot/maint-5.8/perl/sv.c#390 (text) ====
Index: perl/sv.c
--- perl/sv.c#389~34297~ 2008-09-06 07:23:34.000000000 -0700
+++ perl/sv.c 2008-09-16 05:41:16.000000000 -0700
@@ -5852,7 +5852,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.
