# New Ticket Created by Peter Gibbs
# Please include the string: [perl #18157]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=18157 >
t/src/sprintf.t test 1 fails due to too many percentage signs
Patch below seems to fix.
--
Peter Gibbs
EmKel Systems
Index: spf_render.c
===================================================================
RCS file: /cvs/public/parrot/spf_render.c,v
retrieving revision 1.5
diff -u -r1.5 spf_render.c
--- spf_render.c 29 Oct 2002 11:47:58 -0000 1.5
+++ spf_render.c 30 Oct 2002 08:57:15 -0000
@@ -238,8 +238,8 @@
len = 0;
old = i;
if (string_ord(pat, i + 1) == '%') {
- i++;
- len += 2;
+ old = ++i;
+ len++;
continue;
}
else {
